Out of memory during "large" request for 536875008 bytes, total sbrk() is 7065600 bytes at /usr/local/lib/perl5/site_perl/5.8.9/HTTP/Request/Common.pm line 160.

##</code><code>##

my $filename = "largefile.avi";
open(FH,"<$filename");
my $upload_cb = sub {
        if ( sysread FH, my $buffer, 4096 ){
                return $buffer; 
        } else {
                close FH;
                return ''; 
        }
}
# later in the Code, when uploading the File, calling it like this
$vid_fields{field_uploadfile}             =  [ $upload_cb ] ;
$vid_fields{field_private_share_entities} = "";
$resp = upload_step_two($action_url, \%vid_fields);


##</code><code>##

Can't open file CODE(0x821d6d4): No such file or directory at /usr/local/lib/perl5/site_perl/5.8.9/LWP/UserAgent.pm line 401