Select Code to Download

function perlpdf() {
    P=perldoc; 
...
    pod2pdf --title="$X" --footer-text="$X" > "/tmp/$X.pdf"; 
    open "/tmp/$X.pdf"; 
}

function perlpdx(){
    P=perldoc;
...
    ps2pdf - "/tmp/$P $*.pdf";
    open "/tmp/$P $*.pdf";
}