This kind of translation is usually very straight forward, I commented out some original code, and added mine immediately after.

I didn't test the code, and guess you may have a peer to test against. There might be mistakes, but you can certainly come back and discuss.

sub q3msg 
{
    my ($host, $port, $timeout, $msg) = @_;

    my $iaddr = gethostbyname(hostname());
    my $sin = sockaddr_in(0, $iaddr);

=document
    socket(SOCK, PF_INET, SOCK_DGRAM, getprotobyname('udp')) or die "s
+ocket: $!\n";
    bind(SOCK, $sin) or die "bind: $!\n";
=cut
    my $sock = new IO::Socket::INET(Proto => "udp", LocalAddr => $iadd
+r, LocalPort => 0) or die "failed to create UDP socket";

    my $hisaddr = inet_aton($host) or die "unknown host \"$host\"\n";
    my $srvaddr = sockaddr_in($port, $hisaddr);
    #defined(send(SOCK, chr(255) x 4 . $msg, 0, $srvaddr)) or die "sen
+d: $!\n";
    defined(send($sock, chr(255) x 4 . $msg, 0, $srvaddr)) or die "sen
+d: $!\n";

    my ($rin, $rout);
    $rin = "";
    vec($rin, fileno(SOCK), 1) = 1;
    if (select($rout=$rin, undef, undef, $timeout))
    {
        #recv(SOCK, $_, 65507, 0) or die "recv: $!\n";
        recv($sock, $_, 65507, 0) or die "recv: $!\n";
        s/\033.//g;
        my @response = split /^/m;
        shift @response;
        return \@response;
    }
    else
    {
        return undef;
    }
}
[download]

Update:

Actually you can take a look at those two nodes of mine: An internet garbage filter and My experience with Perl threading and the reason I think that I have rushed a little bit. The two pieces of code do the same thing, but the first one is threaded and uses raw socket, and the second one is not threaded and uses IO::Socket. By comparing those two pieces, you can get a good idea of the translation you wanted.

By looking at the title of your post, I saw you compared IO::Socket with "Socket", instead of "socket". I guess (100% pure guess, my guess could be totally wrong) that, you might thought socket is defined in module Socket. That is not true. Raw socket is not defined as object. Module Socket does not give any socket implementation, indeed it just defines a bunch of helper methods, such as inet_atoi etc., also a set of socket related constants.

Read your update. If all what you want is to create socket once, and use it repeatedly, there is certainly no need for you to convert to IO::Socket. Just like you can use variables when you open files, you can do the same thing towards socket, and thus it follows the usual scope rules. For example: (code is tested)

use Socket;

use strict;
use warnings;

my $yahoo;
socket($yahoo, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "so
+cket: $!";
connect($yahoo, sockaddr_in(80, inet_aton("www.yahoo.com"))) || die "c
+onnect: $!";
syswrite($yahoo, "GET / HTTP/1.1\r\nHost: www.yahoo.com\r\n\r\n");
read_one_line($yahoo);
read_one_line($yahoo);

sub read_one_line {
    my $sock = shift;
    my $line = <$sock>;
    print $line;
}
[download]

This also works, but I like the first solution better:

use Socket;

use strict;
use warnings;

socket(YAHOO, PF_INET, SOCK_STREAM, getprotobyname('tcp')) || die "soc
+ket: $!";
connect(YAHOO, sockaddr_in(80, inet_aton("www.yahoo.com"))) || die "co
+nnect: $!";
syswrite(YAHOO, "GET / HTTP/1.1\r\nHost: www.yahoo.com\r\n\r\n");
read_one_line(*YAHOO);
read_one_line(*YAHOO);

sub read_one_line {
    my $sock = shift;
    my $line = <$sock>;
    print $line;
}
[download]

Anyways look at the Perl section here-> UNO

As a matter of fact, I recommend these scripts be placed into the tutorial section, with appropriate credit given.