Select Code to Download

my $out = pod2pdf(@args);
print "Content-Type: application/pdf\n";
...
unlink "./pod/$username.tasks.$$.pod";
binmode(STDOUT);
return print $out;

my $out;
{ 
...
    $out = <PDF>;
    close PDF;
}