Select Code to Download

#!/usr/bin/perl
use strict;
...
usr@host:tmp> ls -1  file*.pl | fileabove.pl arg1 arg2 arg3
Info: ARGV is: arg1 arg2 arg3
handling file: fileabove.pl

ls -1 *.dat | fileabove.pl

fileabove.pl < filenames.txt