print "Input File: $input_file<br>Output File: $new_file_name";

##</code><code>##

$ftp->put($input_file, $new_file_name) || die $ftp->message(), "\n";