Beefy Boxes and Bandwidth Generously Provided by pair Networks
httptech We don't bite newbies here... much  Comment on  I would
recommend changing the timeout to +240 and check/use return
value after each operation, something like:  sub ftp_put_file {
# If rename_file = "Y" transfer file with '.xferring' as
extension. if ( $rename_file eq "Y" ) { $file_name_to_xfer =
"$file_name" . ".xferring"; } else { $file_name_to_xfer =
"$file_name"; } $ftp->put( "${source_directory}/${file_name}",
"${file_name_to_xfer} +" ) or $retval = 1; if ($retval == 1) {
print "**Error occurred .........etc.\n"; } else { print
"**Successfully put file(${source_directory}/${file_name_to_
+xfer}) to host($host).\n"; } return $retval; } # End
ftp_put_file()  In reply to Re^2: Help with Net::FTP module by
spacebar in thread Help with Net::FTP module by tekwiz  and: 
<code> code here </code>    • Please read these before you post!
—             For:     Use:     & &amp;     < &lt;     > &gt;
[ &#91;     ] &#93;   • Log In?      What'