$ftp->put ($fname, $remote_directory) or die
    "OOPS! Can't send localfiles: $!\n";

##</code><code>##

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