#!/usr/bin/perl
use Net::SSH qw(ssh issh sshopen2 sshopen3);
ssh_cmd ({
  user => 'root',
  host => '192.168.1.2',
  command => "chmod 777 /var/named/zzz.z",
  args => ["-i /root/.ssh/thispc-ssh-key", "-P 33"],
  stdin_string => "string\n",
});