.......................................................................
# ftp transfer
        my $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3);
        $ftp or die "$server: cannot connect: $@";
        # If you don't use ~/.netrc
        $ftp->login ($user,$password)
            or die "$_: cannot logon: " . $ftp->message;
        # change remote directory for the first file
        $ftp->cwd($destination);
        # Send file to ftp server
        $ftp->put($new) or
        die "$server: cannot put $new: " . $ftp->message;
        #Quit FTP When finished
        $ftp->quit;

        # Sleep for 20 minutes before processing next file.
          sleep (20 * 60)

        $ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3); # (this is 172 line)
        $ftp or die "$server: cannot connect: $@";
        # If you don't use ~/.netrc
        $ftp->login ($user,$password)
            or die "$_: cannot logon: " . $ftp->message;
        # change remote directory for the first file
        $ftp->cwd($destination);
        #
        # this is new
        my $found = grep /\Q$new\E/, $ftp->ls;
        if ($found) { die "The file is still there!\n" }
.........................................................................
# ftp transfer