use File::Remote;
{ my $secure = new File::Remote
    (rsh => "/usr/local/bin/ssh",
     rcp => "/usr/local/bin/scp" );
  $secure -> open( \*SSHID, "$host:~$user/.ssh/identity")
    ? ( $secure -> close( \*SSHID ) || die($!) )
    : die "access denied\n";
}