Dieses Skript auf Linux (Perlversion 5.8.0) mehrmals ausgeführt löscht Dateien:
--------------------------------------------------------------
#!/usr/bin/perl

chdir("../Bilder") || die "Ordner existiert nicht!";
push(@bilder, glob"*.JPG");
push(@bilder, glob"*.jpg");
$i = 1;

foreach (@bilder)
{
rename "$_", "Daenemark$i.jpg";
print "$_ --> Daenemark$i.jpg\n";
$i++;
}
---------------------------------------------------------------

Warum???

In dem Ordner ../Bilder sind vor der Ausführung des Skripts 29 Bilder (*.jpg).
Nach der
1.Ausführung 29
2.Ausführung 29
3.Ausführung 21
4.Ausführung 21
5.Ausführung 13
6.Ausführung 13
7.Ausführung 5
Jetzt kann man das Skript noch beliebig ausführen. Es bleibt bei 5 Bildern