Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl

...
for my $file (@files) {
    print "$file\n";
}

Select or download this

use Net::OpenSSH;

...
  $ssh->error and
    die "Couldn't establish SSH connection: ". $ssh->error;