use CGI::SpeedyCGI;
CGI::SpeedyCGI->new->set_shutdown_handler(sub {open(F, ">$ARGV[0]")});
