./sapmle,pl a b c #### print $ARGV[0]; # print a print $0; # print sample.pl
./sapmle,pl a b c #### print $#ARGV + 1; # print 3
./sapmle,pl a.txt b.txt c.txt #### while(<>) { print; # print lines of files print $ARGV; # print current using filename }