use strict;
use warnings;
use CGI;
my $oCGI = new CGI;
my $p_filename= $oCGI->param("filename");
print "Content-Type: application/x-download\n";
print "Content-Disposition: attachment; filename=$p_filename.pdf\n\n";
print '
Redirect
';
unlink $p_filename;