#!Perl -w
use strict;
use CGI qw(header);

print header;
print while <DATA>;

__DATA__