my $ssh = Net::SSH::Perl->new(
    $host, 
    identity_files => ["$ENV{HOME}/.ssh/id_rsa.pub"],
  );