Select Code to Download

sub do_ssh2 {
...

my $s=$hosts{"f8.lab.x.httpd.in"};
do_ssh1("f8.lab.x.httpd.in",$s);

Reference found where even-sized list expected at ./Perl-1.pl line 121
+.
Pseudo-hashes are deprecated at ./Perl-1.pl line 123.

...
        },
);