Net::Facebook::Oauth2 - a simple Perl wrapper around Facebook ...

$access_token = $fb ->get_access_token( code => $code ); # <-- could die! # Facebook tokens last ~2h, but you may upgrade them to ~60d if you want:.

Lee mas