Would something this simple work?

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

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