#!/usr/bin/perl

use TL1ng::Telnet;
use Data::Dumper;

$| = 1;  # Autoflush STDOUT

my $tl1 = new TL1ng::Telnet(
    timeout => 10,
    hostname => '127.0.0.1',
    port => 12345,
	connect => 0, # Don't auto-connect.
    );

$tl1->connect();

print "TL1 Connection opened\n" if $tl1->connected();

while($tl1->connected()) {
    while(my $msg = $tl1->get_next()){
        print Dumper $msg;
    }
}