use strict; use CGI; my $query = new CGI; my $pet = $query->param{'animal'}; $| = 1; print $query->header();