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

##</code><code>##

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