#!/usr/bin/perl

use Net::Appliance::Session;

my $pass="password";
my $user="username";
my $host="10.10.10.10";

my $ssh = Net::Appliance::Session->new( personality => 'ios', host => $host, transport => 'SSH');

$ssh->connect ( name => $user, password => $pass);

$ssh->cmd("config term");
$ssh->cmd(" interface fastethernet 0/1");
$ssh->cmd(" desc test");
$ssh->close;