$ftp->cd ($remote_directory) or die "Cannot change to $remote_directory. $@";
$ftp->put ($fname) or die "OOPS! Can't send localfiles: $@";