Select Code to Download

my $timeout = pack( 'L!L!', $seconds, 0 );
defined $socket->sockopt( SO_RCVTIMEO, $timeout )
  or die "Couldn't set timeout: $!";

use 5.010;
use strict;
...
    tv.tv_usec = tv_usec;
    return newSVpv((char *) &tv, sizeof(struct timeval));
}