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

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


##</code><code>##

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

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