Select Code to Download

$ ./threaded-test7.pl 10.88.88.88 username password 
num hosts: 1
...
bless(do{\(my $o = 140010028283744)}, "Net::SSH2")
Trying to connect to 10.88.88.88
Segmentation fault (core dumped)

#!/usr/bin/env perl

...
    say STDERR "Usage: $0 host[,host2,...] user password";
    exit(1);
}

$ ./unthreaded-test7.pl 10.88.88.88 admin password                    
+        
num hosts: 1
...
Trying to connect to 10.88.88.88
Connected to '10.88.88.88'
Authenticated as user 'admin'

#!/usr/bin/env perl

...
    say STDERR "Usage: $0 host[,host2,...] user password";
    exit(1);
}