use CGI;
my $q = CGI->new();

print $q->header(), $q->applet( { param => 'applet.jar' } );