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