#!/usr/bin/perl

use strict;
use warnings FATAL => 'all';
use Net::Appliance::Session;

$|=1;

my $host = 'cisco_server' if (not defined $host);

my $session_obj = Net::Appliance::Session->new(
         Host      => $host,
         REPL      => 1,
);  
$session_obj->connect(
              Name     => 'user',
              Password => 'password',
);