#!/usr/bin/perl -w
use lib qw( . ../.. );
use Debug2( report => 'errors', 
	    to => { file => ["/tmp/a$$","/tmp/b$$"] } );
use strict;

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