#!/usr/bin/perl -w
use Net::SSH2;
 
my $ssh2 = Net::SSH2->new();
$ssh2->connect('158.226.63.99')
    or $ssh2->die_with_error;
$ssh2->auth_agent('z004kapc')
    or $ssh2->die_with_error;
my $chan = $ssh2->channel()
  or $ssh2->die_with_error;
$chan->exec('pwd')
  or $ssh2->die_with_error;
print while <$chan>;