while ( $range =~ /\d+\.\d+\.\d+\.\d+/ )
{
       print "Enter the iprange e.g. 192.168.2.0!\n";
       print "IP-range: ";
    $range = <STDIN>;
}