Celestin Apprentice 7/Apprentice-Release7.iso/Source Code/C/Applications/MacPerl 5.1.3/Mac_Perl_513_src/perl5.002/pod/pod2text

Text File | 1997-01-21 | 175 b | 14 lines | [TEXT/MPS ]

Perl -Sx "{0}" {"Parameters"}; Exit {Status}
#!perl
    eval 'exec perl -S $0 "$@"'
    if 0;

use Pod::Text;

if(@ARGV) {
    pod2text($ARGV[0]);
} else {
    pod2text("<&STDIN");
}