[PerlChina] booklet A5 printing

[joe jiang]

http://wiki.scribus.net/index.php/How_to_make_a_booklet

pdf2f is a function
pdf2f () 
{ 
    PS=$(mktemp);
    pdf2ps $1 $PS;
    psbook -q $PS | psnup -2 -q | ps2pdf - > /tmp/$1.2f.pdf
}

bash function is very useful :D
have we digged the funny usage in perl?