perl experience - ssh implement

my @key = ("/root/.ssh/id_rsa");
my $ssh = Net::SSH::Perl->new($host,
        identity_files=>\@key,
#        debug => 1
    );
$ssh->login('root');