get_dropboxapi_token.pl

use strict;
use warnings;
use WebService::Dropbox;

my $app = '/';
my $dropbox = WebService::Dropbox->new({
    key    => 'xxxxxx', # App Key
    secret => 'xxxxxx' # App Secret
});

# get access token
my $url = $dropbox->login or die $dropbox->error;
warn "Please Access URL and press Enter: $url";
<STDIN>;
$dropbox->auth or die $dropbox->error;
warn "access_token: " . $dropbox->access_token;
warn "access_secret: " . $dropbox->access_secret;