#!/usr/bin/perl

use Net::Telnet ();

$machine = '192.168.1.248';
$port = '1299';

$t = new Net::Telnet (	Timeout => 10,
			Errmode=>'die',
			Port=>$port,
			Prompt=>'/=192.168.1.248 > $/');
$t->open('femto.febo.com');
sleep 1;
# swallow initial welcome
@output = $t->cmd('show adev');
# get data
@output = $t->cmd('show adev');
print @output,"\n";
sleep 1;
$t->cmd("exit");
$t->close;
exit 0;