#!/usr/bin/perl
use CGI;
use warnings;
print "Content-Type: text/html\n\n";
#This is it, the one Magic String (TM)
#The Magic String is super customizable!
#Change $magic to change the string, $markstats to set the "legal status" of the string, and $disclaimer is a general message
#
$magic="The Magic String (TM)";
$markstats="trademark";
$country="Japan";
$organization="FooCorp K.K.";
$disclaimer="is a $markstats of $organization, registered in $country and other countries";
print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
print "\n";
print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">';
print "\n";
print "<head>\n";
print "<title>$magic</title>\n";
print "</head>\n";
print "<p>$magic $disclaimer</p>\n";
print "</body>\n";
print "</html>\n";