In that case, maybe capture the result of your put command and check against that:

my $success = $ftp->put($sub_log);

if ($success) { 
 print "FTP Put successful from server $ftp_server\n";
}

else {
 # handle and report errors
}
[download]