#!/usr/bin/perl -I/home/mqp/perl/ -I/ind/home/mqp/perl/

#use lnl::Persistent;
use cgi_parse;

parse_form_data();

print "Content-type: text/html\n";
print "Pragma: no-cache\n";
print "Expires: 0\n\n";

print <<'EOT';
<HTML>
<HEAD>
<TITLE>Autogenerated HTML</TITLE>
</HEAD>
<BODY>
<APPLET CODE="VPApplet.class" WIDTH=600 HEIGHT=514>
EOT

    print "<PARAM NAME=id VALUE=$FORM_DATA{id}>";

print <<'EOT';
</APPLET>
</BODY>
</HTML>
EOT
