#!/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;}