Help for this page
#!/usr/bin/perl use warnings; ... close(INF1); close(OUTF1); __END__
#### ........... ... pri.<d^KOb.Ï->finish; close(INF1); close(OUTF1);