#!/usr/bin/perl

use strict;
use warnings;

use CGI;
use CGI::Carp qw/warningsToBrowser fatalsToBrowser/;
use Data::Dumper;
use HTML::Template;

my $q           = new CGI;
my $template    = HTML::Template->new(filename => "status.html");
my $report =    [map 
                    { [split /\s+/, $_]->[5] }      # prozess raussuchen
                    @{[split /\n/, qx(/bin/ps ax)]} # 'ps ax' splitten
                ];

$template->param( report => join "<br />\n", @$report );
print $q->header(), $template->output();