#! D:\perl\bin\perl
print "Content-type: text/html\n\n";
$q = $ENV{'QUERY_STRING'};
if ($q eq ''){ &maindisp; }
($q,$m,$t) = split('\&',$q);
$q =~ s/t\=//g;
$q = int($q);
$m =~ s/m\=//g;
if ($m ne '' && $t){ $m = "
+-+$m"; }
$m =~ s/\%20/\+/g;
open(MES,"messages/austin powers.txt");
@MES = ;
close(MES);
print "\n";
$l = $MES[int(rand() * $#MES)];
$l =~ s/\ /\+/g;
$m = $l . $m;
print "Click here to stop";
print "