# prüfen ob file vorhanden ist
       my $check = grep { $_ eq $new } $ftp->ls;
       if ($check) { 

#nur wenn file vorhanden eine error mail schicken
open(MAIL, "|/usr/sbin/sendmail -t") || die "Cant send mail. Reason:
+$!";
print MAIL "from:$sender\n";
print MAIL "to:$recipient\n";
print MAIL "subject: file existiert !\n";
print MAIL "file existiert ! \n";
close(MAIL);

die "achtung file existiert !\n" and next;

}      
       #quit FTP
       $ftp->quit;