#!/Perl/bin/perl

use strict;
use Data::Dumper;
use File::DosGlob;

my $dir = "C:/Dokumente und Einstellungen/pktm/*.*";
my $dir2 = "C:/*.*";
my @r = File::DosGlob::glob($dir);
print Data::Dumper::Dumper( \@r );
# Ausgabe: $VAR1 = [];

@r = File::DosGlob::glob($dir2);
print Data::Dumper::Dumper( \@r );
# Ausgabe = alle Dateien auf der Ebene