perl ping代码

#!/usr/bin/perl

use 5.012;
use warnings;
use autodie;
use strict;
use Net::Ping::External qw(ping);

my $alive;
for my $h (1..40) {
    $alive = ping(host => "192.168.1.$h");
    if ($alive) {
        say "192.168.1.$h is alive";
    } else {
        say "192.168.1.$h is death";
    }
}