Uhm, I think you want to use $readn after the $read smile