while (my $file = glob("*.pl")) {
    print "Datei [$file]\n";
}