Object of Packet ICMP

app-ping.pl

#!/usr/bin/env perl

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/lib";

use Ping;

my $self = Ping->new();

my $loss = $self->getPing('8.8.8.8');

print "Packet $loss" . "% loss\n";

Ping.pm

package Ping;

use strict;
use warnings;

sub new {
    my $class = shift;
    my $self = { _ip => shift, };
    bless $self, $class;
    return $self;
}

sub getPing {
    my ( $self, $dst ) = @_;

    my $loss;

    $self->{_ip} = $dst if defined($dst);

    open( my $fh, "ping -c3 $self->{_ip} |" ) or die "Ping Error!\n";
    my @line = (<$fh>);
    close($fh);

    foreach my $l (@line) {
        if ( $l =~ m/(\d+)%/ ) {
            $loss = "$1";
        }
    }
    return $loss;
}

1;