#!/usr/bin/perl
use strict;
use warnings;
use Net::SSH2;
my $sshf = Net::SSH2->new();
$sshf->connect('192.168.0.18') or print "SSH Connect Failed\n";