#!/usr/bin/perl -w
use lib qw( . );
use Debug2;
use strict;

print "Content-type: text/html\n\n";
print "a1\n";
warn;