#!/usr/bin/perl -wT
$| = 1;

$filename = "test.pdf";

print "Content-type: text/html\n\n"; 
print <<EOM;
	<FORM ACTION="b2.cgi?" METHOD="POST">
	<INPUT TYPE="hidden" NAME="actiontype" VALUE="dload1/i">
	<input type=hidden NAME="filename" value="$filename">
	<INPUT TYPE="submit" VALUE="Download">
	</form>
EOM

exit;

##</code><code>##

#!/usr/bin/perl -wT
$| = 1;

$filepath = "/path/httpdocs/folder/";
$filename = "test.pdf";
&read_input;

if ($data{'actiontype'} =~ /dload1/i) { 
print "Content-type: application/octet-stream\n" if ($filename =~ /\.exe$/);
print "Content-type: application/zip\n" if ($filename =~ /\.zip$/);
print "Content-type: application/pdf\n" if ($filename =~ /\.pdf$/);
print "Content-type: application/x-pdf\n" if ($filename =~ /\.pdf$/);
print "Content-Disposition: inline; filename=$filename\n";
print "Content-Description: File to download\n\n";
open (FILE, "$filepath$filename");
local ($/);
$file = <FILE>;
close (FILE);
print $file;
}

exit;