use File::Glob qw(bsd_glob);

my @files = bsd_glob("C:\\Documents and Settings\\jordant\\Desktop\\Dump\\*.pcap");

for my $file (@files) {
    print "Processing '$file'\n";
};