#!/usr/bin/perl

use FindBin;
use lib $FindBin::Bin,$FindBin::Bin."/lib";

use Thrash;
use CGI::Fast;

$|=1;

while ($CGI = new CGI::Fast)
{
   print "Content-Type: text/html\n\n";
   print Thrash::DoIt;
}
1;
