....
while (<$tmpFileHandle>)
   {
   my $line = $_;
   my $var;
   eval { $var = $line; };
   print ("LINE: $var \n");
   }