open(FF, ">","/tmp/holamundo.pdf");
print FF $pdf->Finish();
close(FF);

##</code><code>##

print $client "HTTP/1.0 200 OK", Socket::CRLF;
print $client "Content-type: application/pdf", Socket::CRLF; #view pdf inline
#print $client "Content-type: application/x-unknown", Socket::CRLF; # force a save popup
print $client Socket::CRLF;
my $SLURP  = `$localfile`;
print $client $SLURP;