#!/usr/bin/perl

use Net::Telnet ();

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

$t = new Net::Telnet (Timeout => 10,Port=>$port);
$t->open('femto.febo.com');
$t->waitfor("/=192.168.1.248 >/");
print "Sent print command...";
$t->print("print adevplot adevtable phasediff freqdiff fcounter spectplot");
$t->waitfor("/=192.168.1.248 >/");
$t->print("exit");
$t->close;
print " Finished!\n";