Q:\>perl -wle "system 'echo *.pl'"
*.pl

Q:\>perl -wle "system 'echo *'"
*

Q:\>perl -wle "system 'echo *.*'"
*.*

Q:\>perl -wle "system 'type *.pl'"

lcfget.pl


#!/usr/bin/perl -w
use strict;
use Getopt::Long;
...