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

print header (), <DATA>;

__DATA__