my $sock = new IO::Socket;
print $sock->timeout() || "undef";    # prints "undef"
$sock->timeout(10);
print $sock->timeout() || "undef";    # prints "10"