package Wild;

my (@_ARGV) = @ARGV;

sub Wild::unimport { $Wild::unimport=1; @ARGV=@_ARGV;}

use File::DosGlob 'glob';
@ARGV = map {
                /[*?]/ && s!^(\w):([^\\/])!$1:\.\\$2!;
                my (@globbed) = File::DosGlob::glob($_);
		$#globbed>=0 ? @globbed : $_
            } @ARGV unless $Wild::unimport;
1;