#!/usr/bin/perl

use NetAddr::IP;
use LWP::Simple;

if ($#ARGV == 1){
        print("Useage: ./scanner <ip range>\n");
        print("    ex: ./scanner 192.168.1.1/24\n");
        print("$ARGV[0]");
        exit();
        }

push @space, NetAddr::IP->new($_) for $ARGV[0];
 
for my $netblock (NetAddr::IP::compact @space) 
{
   for (my $ip = $netblock->first;
           $ip <= $netblock->last;
           $ip++)
        {
                @array = split(/\//, $ip);
                $cock = @array[0];
                my $url = "http://$cock:80/WebPhone/";
                my $content = get $url;
                print("Scanning $cock\n");

                if($content =~ m/Directory Listing Denied/g) {
                print("$cock\n");
                }
        }
}