#!/usr/bin/perl

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

use Thrash;

$|=1;

print "Content-Type: text/html\n\n";
print Thrash::DoIt;

1;