Listing 2 turnoff.pl

#!/usr/bin/perl

# Date: Monday 01 August 2005
#
# This perl script turns OFF the ISDN connection of
# my home CISCO 1603 router
#

use Net::Telnet::Cisco;
use strict;

my $CISCO_IP = "10.100.3.3";
my $password = "******";
my $enable_password = "******";

my $session = Net::Telnet::Cisco->new(Host => $CISCO_IP );
# As I do not use a username to connect to the router via telnet
# I have used something simple.
$session->login("username", $password);

my @output = "";

# Enable mode
if ($session->enable($enable_password) )
{
     @output = $session->cmd('show privilege');
     print "My privileges: @output\n";
}
else
{
     warn "Can't enable: " . $session->errmsg;
}

@output = $session->cmd('configure terminal');
print @output;
@output = $session->cmd('interface BRI 0');
print @output;
@output = $session->cmd('shutdown');
print @output;
# In order to write ^Z you have to press Ctrl+V and Ctrl+Z
@output = $session->cmd('^Z');
@output = $session->cmd('write memory');
print @output;

$session->close;