$ftp->put($file, $file) or die "Could not transfer $file to FTP server: $!\n";

##</code><code>##

$ftp->put($file) or die "Could not transfer $file to FTP server: $@\n";