#!/usr/bin/perl
use Net::Appliance::Session;
my $s = Net::Appliance::Session->new( Host => '192.168.1.1', Transport => 'SSH', );
$s->close();