while (my $line=<PYCFILE>) ...