use CGI qw(:standard);
my $query = CGI->new();
print $query->header('text/plain');