#!/usr/bin/perl
use Socket;
use IO::Socket;
use warnings;


sub getWin {

 @win = gethostbyname("win")
    or die $!;
 print "@win\n";
}
&getWin;