#!/usr/bin/perl -w
use lib qw( . );
use Debug2( report => 'params' );
use strict;

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