in reply to Re^2: Comandline arguements when perl code is getting executed from command line
in thread Comandline arguements when perl code is getting executed from command line

He could use BEGIN { $type = shift(@ARGV); }, he could use -s or he could get rid of -n.

In Section Seekers of Perl Wisdom