#!/usr/local/bin/perl
use Net::OpenSSH;
my $remoteserver='nms4';
my $remoteuser='tftp';
my $ssh = Net::OpenSSH->new('$remotehost', user => '$remoteuser', strict_mode => 0);