And a couple of other nits:

• the three argument form of open is preferred these days
• always check the return from system calls

open( PFN, "<", $file ) or die "Can't open '$file': $!\n";
[download]