#!/usr/bin/perl

$SIG{INT} = \&end;

open (TELNET, '-|', "telnet 192.168.1.1 6088");

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

sub end {
    print "Closing the session ...\n"
#   close FH;
    close TELNET;
    print "Session closed!\n"
    exit;
}