Here is the code. Very simple really:
use strict;
use CGI qw(:standard);
print<<TO_END;
Content-type: text/html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>
<BODY>
<applet code="menuscroll2.class" width="460" height="18">
<param name="applet_width" value="460">
<param name="applet_height" value="18">
<param name="regcode" value="">
<param name="info" value="Applet by Gokhan Dagli,www.appletcollection.
+com">
<param name="bgcolor" value="#00000">
<param name="border_color" value="red">
<param name="text_color" value="green">
<param name="highlight_text_color" value="000000">
<param name="rect_color" value="E8B200">
<param name="highlight_rect_color" value="red">
<param name="arrow_color" value="000000">
<param name="highlight_arrow_color" value="blue">
<param name="arrow_bgcolor" value="E8B200">
<param name="font_type" value="Arial">
<param name="font_size" value="15">
<param name="font_style" value="0">
<param name="border" value="no">
<param name="space" value="10">
<param name="scroll_delay" value="50">
<param name="xspace" value="1">
<param name="scroll_jump" value="1">
<param name="yposition" value="14">
<param name="mouse_over" value="normal">
<param name="text1" value="Sire 1! Goes Here">
<param name="link1" value="http://www.appletcollection.com/popular.htm
+l">
<param name="text2" value="Sire Two 2323 HEre">
<param name="link2" value="http://www.appletcollection.com/advnewsscro
+ll.html">
</applet>
</BODY>
</HTML>
TO_END
|