Select Code to Download

ken@titan ~/tmp/www
$ perl -Mstrict -Mwarnings -Mautodie=:all -MCarp::Always -T -E '
...
    my $pdf = PDF::API2->new("some.pdf");
    $pdf->save("some.pdf");
'

    my $pdf = PDF::API2->open("some.pdf");

ken@titan ~/tmp/www
$ file some.pdf
some.pdf: PDF document, version 1.4, 0 pages

delete @ENV{qw(IFS CDPATH ENV BASH_ENV)};   # Make %ENV safer