$sftp->put($local, $remote [, \&callback ])

 sub callback {
        my($sftp, $data, $offset, $size) = @_;
        print "Wrote $offset / $size bytes\r";
    }