#!/usr/bin/perl

use strict;
use warnings;
use CGI::Fast qw/:standard/;

while (my $q = CGI::Fast->new) {
	print header ( -type=>'text/plain'), 1;
}