use strict;
use Net::SFTP;
$sftp->put( $file, $target_file, \&callback )
 or die( "\nDied : Error $!");