in reply to WHILE and DEFINED problem

If you want to know if /tmp.txt has data in it use:

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

[download]

"Cogito cogito ergo cogito sum - I think that I think, therefore I think that I am." Ambrose Bierce

In Section Seekers of Perl Wisdom