Help for this page

Select Code to Download


  1. or download this
    my $ssh = Net::SSH::Any->new($hostname, user => $user, key_path => "/h
    +ome/$user/.ssh/id_dsa");
    if ($ssh->error) {
    ...
        say "The files and directories of $username on $hostname are given
    + below";
        say "@out";
    }