sub show_progress {
        my($sftp, $data, $offset, $size) = @_;
        print "downloaded $offset of $size bytes\r";
    }


##</code><code>##

$sftp->get($REM_FILE)

##</code><code>##

$sftp->get($REM_FILE, callback => \&show_progress)