Perl: Net::Cmd: Callback kind of function for datasend() ??

Is there a way to make a callback function so that while you send data you can send the bytes uploaded to a file?

like

Net::Cmd;

open(R,"$file");
while(R($file,&callback,$byte)
{
         datasend() ?
}
close(R);

sub callback
{
        $count = $count + $byte;
}

Thanks for any help anyone can lend.

Best regards,

Dr34m3rStart Free Trial