Select Code to Download

if ( ! -e $file ) {
    emailerr("$file does not exist");
...
else {
    $ftps->put($file);
}

my $rtncode = $ftps->last_status_code;
if ( $rtncode != 2 ) {
    # deal with error
}