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