I don't know anything about WINS, but if all you want is use IO::Socket to open a socket, make a request and read the response through it, here is a quick example:

#!/usr/bin/perl

use strict;
use IO::Socket;

my $host = "your.hostname.here";
my $port = 137;
my $sock = new IO::Socket::INET(
  PeerAddr => $host,
  PeerPort => $port,
  Proto => 'tcp' # I guess TCP is ok for you ...
);
die "cannot open socket" unless ($sock);
# send the request
my $req = "whatever request you wish to send through the socket";
print $sock $req;
# read the response
while (<$sock>) {
  #do something with the response
}
close $sock;
exit;
[download]

I hope this helps.

marcos