Como configurar o SO_RCVTIMEO em um soquete no Per

Se eu tentar assim: my $sock = IO::Socket::INET->new( … ) or die "no socket for you"; defined $sock->setsockopt(SOL_SOCKET, SO_RCVTIMEO, 30) or die "setsockopt: $!"; então meu script sofre a morte de "setsockopt: argumento inválido na [linha ...