#! /usr/local/bin/perl -Tw

use strict;
use File::Find;
use Socket;


my $BasePath = "/hostname";
my $SourcePath = "${BasePath}/internal_hosts";
my ($Hostname, @HostFiles, $Subnet, $NewPass, $IP, $Service, $OS);

find (\&GrabHostFiles, "$SourcePath"); foreach (@HostFiles) { print "$_\n";}

sub GrabHostFiles {
	my $hostaddr = $_; 
	chomp $hostaddr;
	push(@HostFiles, $1) if ($hostaddr =~ /(hostlist\_\d{1,3}\.\d{1,3}\.\d{1,3})/);
}