#!/usr/bin/perl
use warnings;
use strict;
use Socket;

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

while (<DATA>) {
        my $uri = $_;
           $uri =~ s/\s+//g;

        my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname $uri;

        my ($w,$x,$y,$z) =  unpack('C4',$addrs[0]);

        print FILE "$w.$x.$y.$z\n";
}
close (FILE);
__DATA__
psclxgmprdonx03
totlxfiprdsp502

##</code><code>##

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);
}