#!/Perl/bin/perl

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

print "Version: " . $File::DosGlob::VERSION . "\n";

print "dir with spaces, Win32-OS (XP home), unix-slash-notation\n";
my $dir = "C:/Dokumente und Einstellungen/pktm/*.*";
print "dir: $dir \n";
my @r = File::DosGlob::glob($dir);
print "output:\n";
print Data::Dumper::Dumper( \@r );

print "\nnext: dir without spaces\n";
my $dir2 = "C:/*.*";
print "dir: $dir2 \n";
@r = File::DosGlob::glob($dir2);
print "output:\n";
print Data::Dumper::Dumper( \@r );

print "\nnext: dir with spaces and File::Spec\n";
my $dir3 = File::Spec->catfile("C:/Dokumente und Einstellungen/pktm/", '*.*');
print "dir: $dir3 \n";
@r = File::DosGlob::glob($dir3);
print "output:\n";
print Data::Dumper::Dumper( \@r );

# Vollständiger Output:
#Use of uninitialized value in substr at C:/Perl/lib/File/DosGlob.pm line 38.
#Version: 1.00
#dir with spaces, Win32-OS (XP home), unix-slash-notation
#dir: C:/Dokumente und Einstellungen/pktm/*.* 
#output:
#$VAR1 = [];
#
#next: dir without spaces
#dir: C:/*.* 
#
#output:
#$VAR1 = [
#          'C:/.cpan',
# ...lots of files...
#        ];
#
#next: dir with spaces and File::Spec
#dir: C:\Dokumente und Einstellungen\pktm\*.* 
#output:
#$VAR1 = [];