#!/usr/bin/perl

$SIG{INT} = \&end;

my $kid = open (TELNET, '-|', "telnet 192.168.1.1 6088");

while(<TELNET>) {
    $arr = <TELNET>;
    $arr =~ s/[\r\n](.....):(.*)/<p class="$1">$1:$2<\/p>/;
    print $arr;
}
end;

sub end {
    kill 9, $kid; ## Or whatever signal is appropriate!
    print "Session closed!\n"
    exit;
}