if (-f "$dir/$file") {
            print "SEND $dir/$file to ftp server\n";
            &Put_File($dir, $file);
        }
        else {