Help for this page
#!/usr/bin/perl ... { print ++$line . '. ' .$o; }
#!/usr/bin/perl ... # or $fh->print($o); } close $fh;