hi Roy

thanks for your time and help
about your question:
I have to send the first file in each cases.
after 20 minutes sleep I have to check if the first file is still on the remote server in $remote_directory_1 or not.
only if the first file is not there (in $remote_directory_1), I can send the second file.

I changed the code :

......................................................................
+.
# 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
[download]

but I get following error:
"Scalar found where operator expected at send.cgi line 172, near ")
$ftp"
(Missing operator before $ftp?)
syntax error at ftp5.cgi line 172, near ")
$ftp "
Execution of ftp5.cgi aborted due to compilation errors."

the 172 line is:
$ftp = Net::FTP->new ($server, Timeout => 9000, Debug => 3); # (this is 172 line)

any idea what could be wrong ?

kind regards
cc