$ sudo prove -v 5.ping3.pl 
[sudo] password for bob: 
5.ping3.pl .. 
1..2
ok 1 - System ping to www.google.com
not ok 2 - Net::Ping to www.google.com
#   Failed test 'Net::Ping to www.google.com'
#   at 5.ping3.pl line 14.
# Looks like you failed 1 test of 2.
Dubious, test returned 1 (wstat 256, 0x100)
Failed 1/2 subtests 

Test Summary Report
-------------------
5.ping3.pl (Wstat: 256 Tests: 2 Failed: 1)
  Failed test:  2
  Non-zero exit status: 1
Files=1, Tests=2, 11 wallclock secs ( 0.04 usr  0.02 sys +  0.14 cusr  0.03 csys =  0.23 CPU)
Result: FAIL
$ cat 5.ping3.pl 
#!/usr/bin/perl -w
use 5.011;
use Net::Ping;
use Test::More tests => 2;

my $dest   = 'www.google.com';
my $pinger = Net::Ping->new ('icmp', 10);
my $res;

$res = system ("ping -nqc1 -w 3 -W 3 $dest > /tmp/ping.log");
is ($res, 0E0, "System ping to $dest");

$res = $pinger->ping ($dest);
ok ($res, "Net::Ping to $dest");

$pinger->close;

$ ping -nqc1 -w 3 -W 3 www.google.com
PING www.google.com(2607:f8b0:400a:800::2004) 56 data bytes

--- www.google.com ping statistics ---
1 packets transmitted, 1 received, 0% packet loss, time 0ms
rtt min/avg/max/mdev = 24.338/24.338/24.338/0.000 ms
$ 

##</code><code>##

PING www.google.com(2607:f8b0:400a:808::2004) 56 data bytes

--- www.google.com ping statistics ---
1 packets transmitted, 1 received, 0% packet loss, time 0ms
rtt min/avg/max/mdev = 23.928/23.928/23.928/0.000 ms
PING www.translate.yandex.ru(2a02:6b8::193) 56 data bytes

--- www.translate.yandex.ru ping statistics ---
1 packets transmitted, 1 received, 0% packet loss, time 0ms
rtt min/avg/max/mdev = 199.524/199.524/199.524/0.000 ms
PING a-0001.a-msedge.net (204.79.197.200) 56(84) bytes of data.

--- a-0001.a-msedge.net ping statistics ---
3 packets transmitted, 0 received, 100% packet loss, time 2049ms

PING www.yahoo.com(2001:4998:c:1023::4) 56 data bytes

--- www.yahoo.com ping statistics ---
1 packets transmitted, 1 received, 0% packet loss, time 0ms
rtt min/avg/max/mdev = 21.701/21.701/21.701/0.000 ms
##</code><code>##

$ cat 3.ping3a.pl
#!/usr/bin/perl -w
use 5.011;
use Path::Tiny;
use POSIX qw(strftime);

# initialization that must precede main data structure
# User: enter a subdirectory you would like to create
#       enter a subdirectory of this^^^ for output

my $ts     = "template_stuff";
my $output = "translations";

## turning things to Path::Tiny
my $abs   = path(__FILE__)->absolute;
my $path1 = Path::Tiny->cwd;
my $path2 = path( $path1, $ts );
say "abs is $abs";
say "path1 is $path1";
say "path2 is $path2";
print "This script will build the above path2. Proceed? (y|n)";

my $prompt = <STDIN>;
chomp $prompt;
die unless ( $prompt eq "y" );
my $template_file   = "1.monk.tmpl";
my $abs_to_template = path( $path2, $template_file )->touchpath;
my $string1         = '<{$symbol}></{$symbol}>';
my $return5         = $abs_to_template->spew_utf8($string1);
say "return5 is $return5";

# script params
my %vars = (
  monk_tags    => path( $path2, $template_file ),
  translations => path( $path2, $output ),
  book         => 'monastery tags ',
);

my $rvars   = \%vars;
my $return1 = write_monk_tags($rvars);
say "return1 is $return1";
my $munge = strftime( "%d-%m-%Y-%H-%M-%S", localtime );
$munge .= ".monk.txt";

# use Path::Tiny to create and write to a text in relevant directory
my $save_file = path( $vars{$output}, $munge )->touchpath;
my $return2 = $save_file->spew_utf8($return1);
say "return2 is $return2";

## ping a few sites and add it to this log; append output
# keep time

my $start = time;

my $return3 = ping_sites($save_file);
say "return3 is $return3";
say time - $start, "seconds elapsed during pinging";

say "created file $save_file";
system("gedit $save_file &");

sub ping_sites {

  use 5.011;
  use Path::Tiny;

  my $outfile = shift;

  for my $dest (
    'www.google.com', 'www.translate.yandex.ru',
    'www.bing.com',   'www.yahoo.com'
    )
  {
    system("ping -nqc1 -w 3 -W 3 $dest >> $outfile")
      and print "### $dest is unreachable\n";
  }
  return "done with pinging";
}

sub write_monk_tags {
  use warnings;
  use 5.011;
  use Text::Template;

  my $rvars = shift;
  my %vars  = %$rvars;

  my $body     = $vars{"monk_tags"};
  my $template = Text::Template->new(
    ENCODING => 'utf8',
    SOURCE   => "$body",
  ) or die "Couldn't construct template: $!";
  my $return = "$vars{\"book\"}\n";

  # User: change these quoted values for different order or tags
  my @buchstaben = qw/i p c readmore b/;
  for my $i (@buchstaben) {
    $vars{"symbol"} = $i;
    print "How many $i tag pairs would you like?: ";
    my $prompt = <STDIN>;
    chomp $prompt;
    if ( $prompt lt 1 ) {
      $prompt = 0;
    }
    while ( $prompt gt 0 ) {
      my $result = $template->fill_in( HASH => \%vars );
      $return = $return . $result;
      --$prompt;
    }
  }
  return $return;
}
__END__ 
$ 

##</code><code>##

 sudo add-apt-repository ppa:wireshark-dev/stable
 sudo apt-get update
 sudo apt-get install wireshark
 sudo wireshark