#!/usr/bin/perl
use CGI qw/-no_xhtml :standard/;
use CGI::Carp qw(fatalsToBrowser);
print header(-charset => 'windows-1251'),
start_html(-lang => 'ru', -title => 'My shell',
# установим курсор в поле ввода команд
-onLoad => "document.forms[0].vvod.focus()");
if ( param() ) { # если мы ввели команду
   my $vvod = param('vvod');
   # покажем нашу команду для самоконтроля
   print $vvod, "<br>\n";
   # установим таймаут в секундах для выхода из нашей команды,
   # если она задержалась с ответом
   my $timeout = 30;
   # анонимная подпрограммочка для обработки таймаута
   local $SIG{ALRM} = sub { 
      close KAN;
      print 'Процесс прерван по таймауту</pre>';
      die "timeout"; 
   };
   # вот и сам &#171;шелл&#187;
   $pid = open(KAN, "$vvod 2>&1 |") or die "Cannot run program: $!.\n";
   eval {
      alarm($timeout);
      print '<pre>';
      # читаем вывод команды и направляем его на дисплей
      while( <KAN> ) { print; }
      print '</pre>';
      alarm(0);
      close KAN;
   }
}
# генерируем форму ввода команды
print start_form,
   textfield(-name=>'vvod', -size=> 80, -value=> ''), 
   submit('Run!'),
   endform, 
   end_html;
exit(0);