Select Code to Download

    my $podfile = "some.pod";
    my $scalar = '';
...
    podselect $podfile;    # reads form $podfile, writes to STDOUT
    untie *STDOUT;
    # now $scalar contains the pod from $podfile

    my $scalar = "some pod text";
    tie *STDIN, 'IO::Scalar', \$scalar;
    pod2html;
    untie *STDIN;
    # reads from 'real' STDIN, not from $scalar

#! perl -w
...
}

__END__