Help for this page

Select Code to Download


  1. or download this
    print "output file name: \n";
chomp($outfile=<STDIN>);

open (DATA, "+>$outfile" ) || die;
  2. or download this
    sub countprog{

...

print DATA2 "results of this 2nd subroutine";
}