require Net::Telnet;

use Net::Telnet ();

##
my($pixaddr, $pix);

$pixaddr = "@ARGV";

##
$pix = new Net::Telnet (Telnetmode => 0);
$pix->open(Host => $pixaddr, Port => 23);

##
$pix->print("\n");
$pix->print("quit");
$pix->waitfor('/pix/');
$pix->print("enable");
$pix->waitfor('/Password:/');
$pix->print("<mypassword>");
$pix->waitfor('/pix/');
$pix->print("no pager");
$pix->waitfor('/pix/');

##
$pix->timeout(42);
$pix->print("write term");
($pixconfig) = $pix->waitfor('/: end/');
print $pixconfig;

##
$pix->print("quit");
$pix->waitfor('/pix/');

exit;