Add read / write timeout to perl IO::Socket