my $cmd = $q->param('cmd'); # From html form print <Transitional//EN"> if ($cmd =~ /vmstat/) { printf "Starting to run :$cmd\n"; # Would run something like system("vmstat 5") here } } print < EndFoot