$ perl\n$ deck/dollar=\"NoTiNpErL\"
    eval 'exec perl -S $0 "$@"'
	if 0;

use Pod::Text;

if(@ARGV) {
	if (@ARGV > 1) {
	    $outfile = pop @ARGV;
	    open(OUT,">$outfile") or die "Can't create $outfile: $!\n";
	    select(OUT);
	}
	undef $/;
	print Pod::Text::pod2text(<>);
} else {
	print pod2text( <STDIN> );
}

