# receive a list of filenames on stdin
# (or from an intermediary file named on command line)
#
while (<>)
{
   chomp;
   # process a filename in $_
}