Untitled

#!c:/perl/bin/perl

use warnings;
use strict;

use DBI;

print "Content-type: text/html\n\n";


## data-base config
my $host="127.0.0.1";
my $database="mysql";
my $table="*";
my $user="test";
my $mysqlpassword="test";

my $dbh = DBI->connect("DBI:mysql:database=$database;host=$host","$user","$mysqlpassword",{'RaiseError'=>1});

print "<html><body>\n";

my $jenni = ("SHOW PROCESSLIST");

print "<br>Section = $jenni<br>\n<br>\n";

my $sth = $dbh->prepare("$jenni"); ## go jenni go

if (!$sth) { die "Error:" . $dbh->errstr . "\n"; }
if (!$sth->execute) { die "Error:" . $sth->errstr . "\n"; }


my $table = $sth->fetchall_arrayref;
my ($i, $j);
        for $i (0 .. $#{$table}) {
                                for $j (0 .. $#{$table->[$i]}) {
                                                                my $message = "$table->[$i][$j] \n";
                                                                print "$message";
                                                               }
                                print "<br> \n";
                                }


print "</body></html>\n";

$sth->finish; $dbh->disconnect();