Help for this page

Select Code to Download


  1. or download this
        my $podfile = "some.pod";
    my $scalar = '';
...
    podselect $podfile;    # reads form $podfile, writes to STDOUT
    untie *STDOUT;
    # now $scalar contains the pod from $podfile
  2. or download this
        my $scalar = "some pod text";
    tie *STDIN, 'IO::Scalar', \$scalar;
    pod2html;
    untie *STDIN;
    # reads from 'real' STDIN, not from $scalar
  3. or download this
    
#! perl -w
...
}

__END__