#dhcp.pl
#!/usr/bin/perl
#use strict;
use Net::SSH::Perl;

$hostname = "dhcp-server";
$username = "admin";
$password = "pswd";

$ssh =  Net::SSH::Perl-> new ("$hostname", debug => 0);
$ssh -> login ("$username","$password");
#$ssh -> cmd ("cd /var/lib/dhcp/");
@ar = $ssh -> cmd ("cd /var/lib/dhcp/ && cat dhcpd.leases |grep $ARGV[0]");
print "@ar";