Help for this page

Select Code to Download


  1. or download this
    sub openOut
  {
...
    my $output_file     = $_[1];
    ...
  }
  2. or download this
    #!perl
use Foo qw(openOut);
openOut(*BAR,"~/output.txt");
print("Hello world!\n");