my $dir = 'c:\temp';
my $file = $dir . '/' . 'RH5_CSV_Americas.csv';

open (my $fh, "<", $file) or die $!;
##my @file = <$fh>;

open (FILES, '>>111.txt');

while (<$fh>) {
my $uri = $_;
$uri =~ s/\s+//g;
my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname $uri;
my ($w,$x,$y,$z) =  unpack('C4',$addrs[0]);
print FILES "$w.$x.$y.$z\n";
}
close (FILES);
}