sub callback {
    my ( $sftp, $data, $offset, $size ) = @_;
    my $percent = ($offset/$size)*100;
    print "offset=$offset\n";
    print "size=$size\n";
    print "percent=$percent\n";
}