#! c:/perl/bin/perl.exe
use strict;

use Net::SSH::Perl;
use Net::Telnet;

my $ssh = Net::SSH::Perl->new("RVM701");

$ssh->login("root", "password");