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

##</code><code>##

function perlpdx(){
	P=perldoc;
	$P -uT "$@" |
	pod2man > "/tmp/$P $*.1";
	man -t "/tmp/$P $*.1" |
	ps2pdf - "/tmp/$P $*.pdf";
	open "/tmp/$P $*.pdf";
}