my $file = 'c:/test.txt';
my $trashDir = 'd:/anotherdir';
            my $dest = $trashDir . '/' . basename("$file",".igs") . '.igs';
            my $cnt = 2;
            while( -e $dest || $cnt != MAXTRASHCOPYS ){
                $dest = basename("$dest",".igs") . $cnt . '.igs';
                $cnt++;
            }
unless( copy("$file","$dest") ){ die "Konnte keine Sicherheitskopie erstellen!"; }