#!/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 '';
print "\n";
print '';
print "\n";
print "\n";
print "$magic\n";
print "\n";
print "$magic $disclaimer
\n";
print "\n";
print "