use strict;
use warnings;

use File::DosGlob 'glob';

$| = 1;

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

__END__
script.pl
script.pl