#!/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