use strict; use Net::SFTP; $sftp->put( $file, $target_file, \&callback ) or die( "\nDied : Error $!"); #### eval { $sftp->put( $file, $target_file, \&callback ); }
if ( $@ ) { writelog(...) die("Died Here: Error $!"); }