while (chomp(my $qline = <QINPUT>))
{
   # yadda, yadda, yadda
}