#!/usr/bin/perl use strict; my $pet = $ENV{'QUERY_STRING'}; print "Content-type: text/html\n\n"; print qq~ ~;