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