复制代码代码如下:

#!/usr/bin/perl 
use warnings; 
use strict; 
use Email::Send; 
use Email::Send::Gmail; 
use Email::Simple::Creator; 
my @list = qw/ 
1.1.1.1 
2.2.2.2 
3.3.3.3 
/; 
foreach my $re (@list){ 
        my $p = `ping $re -c 3`; 
        if($p=~/100% packet loss/){ 
                my $email = Email::Simple->create( 
                header => [ 
                From    => 'monitor@a.com', 
                To      => 'monitor@b.com', 
                Subject => "$re 100% packet loss", 
], 
body => "$re the server is down!\n", 
 ); 
                my $sender = Email::Send->new( 
                { mailer => 'Gmail', 
                mailer_args => [ 
                username => 'monitor@a.com', 
                password => 'xxx', 
                ] 
                } 
); 
        eval { $sender->send($email) }; 
        die "Error sending email: $@" if $@; 
        } 
}