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


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

  our $input = $ARGV[1];

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

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


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

  our $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;}