C:\drop>drop.pl http://alanhelton.com/wp-content/uploads/2012/04/webdev-160x145.png 
 
 
Unexpected EOF while reading response header at C:/Perl/site/lib/WebService/Drop box.pm line 381.

my ($minor_version, $code, $msg, $headers, $body) = $self->furl->request(%$args);

 use WebService::Dropbox; 
 use LWP::Simple; 
 use strict; 
 use warnings; 
 
my $url =           $ARGV[0]; 
 
my @filenametmp =   split('\/', $url); 
my $file_name =     @filenametmp[scalar(@filenametmp)-1]; 
 
my $dropbox = WebService::Dropbox->new({ 
    key => 'key', # App Key 
    secret => 'secret' # App Secret 
}); 
 
 
 
#-- fetch the zip and save it 
my $status = getstore($url, "upload\\".$file_name); 
                sleep(2); 
 
if (-e "upload\\".$file_name) 
{ 
    #print "\nSaved ".$file_name." as ".$ufn." correctly\n"; 
    # upload 
    # https://www.dropbox.com/developers/reference/api#files_put 
 
    my $access_token = 'token'; 
    my $access_secret = 'secret'; 
    # get access token 
    if (!$access_token or !$access_secret) { 
        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; 
    } else { 
        $dropbox->access_token($access_token); 
        $dropbox->access_secret($access_secret); 
    } 
 
    my $info = $dropbox->account_info or die $dropbox->error; 
 
    my $fh_put = IO::File->new("upload\\".$file_name); 
    print "Uploading '".$file_name."'\n"; 
    $dropbox->files_put($file_name, $fh_put, { overwrite => 0 }) or die $dropbox->error; 
    $fh_put->close; 
 
    print "DONE"; 
 
} 
else 
{ 
  print "error downloading file: $status\n"; 
}