foreach $file (@files) {
   if ((!open (FILE, "<file")) && ($file ne '-'))
   {
        #print error and die
   }
   else 
   {
      while ($line = <FILE>) #OR if FILE is undefined then <STDIN> {
           #do something
        }
   }
}