$qfile = "c:/tmp.txt";
if (-s $qfile) # man perlfunc has more -s = if exist with size > 0
{
  open QINPUT...
}