#! /usr/bin/perl -w

opendir(IN, $ARGV[0]) || die "Can't access $!\n";
@entries = grep !/^\.\.?$/, readdir IN;
closedir IN;

foreach $file(@entries) {
    ++$cnt;
    rename($file, "Bild".$cnt.".jpg");
}