BEGIN {
    $|=1;
    if (1) {
        print "Content-type: text/html\n\n"; # Doh!
        use CGI::Carp qw(fatalsToBrowser);
    }
}