#!/usr/bin/perl
use strict;
#EierlegendeWollMilchSau.pl
use Net::Ping;


if ($ARGV[0] eq '-p' ){

  my $input = $ARGV[1];

  my @namesplit = split(/\./, $input);

  my $r1 = $namesplit[0];
  my $r2 = $namesplit[1];
  my $r3 = $namesplit[2];
  my $r4 = $namesplit[3];


  my $till;
  if (!defined $ARGV[2]){
      $till = $r4;}
      else { $till = $ARGV[2]; }

  my $until = $till +1;

  while ($r4 != $until ) {
    my $ip = $r1.'.'.$r2.'.'.$r3.'.'.$r4;
    my $ping = Net::Ping->new( "icmp", 1, 64 );
  
    if ( $ping->ping($ip) ) {
      print "$ip online\n";
  } else {
      print "$ip offline \n";

  }  
     $r4++;
  }
}
elsif{ YOUR PART }
else{ exit 0;}