#!/usr/bin/perl my $qstring = $ENV{'QUERY_STRING'}; print "Content-Type: text/html\n\n"; print < EOF exit;