open(IN_FILE, "cat $fileName |" die "Can't cat inputfile: $!\n"; 
while (<IN_FILE>) { 
      chop;  
......some processing code...
}