The security concerns are valid to a degree

#!/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: '$c
+ommand'" );
  print "<pre>\n";
  print escapeHTML($_,1) while (<CMD>);
  print "</pre>\n", end_html;
  close CMD;
}

sub die_nice{ print shift and exit }
[download]

cheers

tachyon

s&&rsenoyhcatreve&&&s&n.+t&"$'$`$\"$\&"&ee&&y&srve&&d&&print