#!/usr/bin/perl -w # always test your perl scripts: perl -c use strict; # stricter type-checking my $query = $ENV{QUERY_STRING}; my ($key, $value) = split ( /=/, $query); print < w4111: Fall 2004 Hey, you said your $key was $value EOT