extra_printing.cgi

#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<HTML><HEAD><title>Showing off in either browser</title></HEAD><BODY>";

$browser = $ENV{'HTTP_USER_AGENT'};
print "browser is $browser";

if ($browser =~ /Mozilla/) {
	print "<P>You're using Netscape";
	print "<P>You can show off in Netscape with the <BLINK>Blink</BLINK> tag";
	
} else {
	print "<P>You're not using Netscape, which means you're probably using Explorer";
	print "<P>In Internet Explorer, a cool tag is the <MARQUEE BEHAVIOR=scroll>Marquee tag</MARQUEE>";
}