Select Code to Download

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

...
        print "Read $offset / $size bytes\r";
    }

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

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