###########################################
open QINPUT, "<", "c:/tmp.txt";
while (defined(chomp($qline = <QINPUT>)))
{
   if (defined($qline)) {
      print "Q is defined!\n";
   } else {
      print "Q is not defined!\n";
   }
   print "\$qline: $qline\n";
}
###########################################