use strict;
use warnings;

use File::DosGlob 'glob';

$| = 1;

for (1..2) {
   my $glob = glob($0);
   print($glob, "\n");
}

__END__
script.pl
Use of uninitialized value in print at script.pl line 11.