use IO::Socket;

$sock = IO::Socket::INET -> new 
(LocalHost =>'PC110197',
LocalPort =>1810,)