#!/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;