betterwhois.com

#!/usr/bin/perl
print "Content-type: text/html\n\n";
$filename="trobots.txt";
open(MYFILE,$filename);
@filecontents=;
$text="";
foreach $line (@filecontents) {
   $text=$text . $line;
}
print $text;