[ceautery]

That's good until your input stream exceeds 32768 lines [1]. There are better generators available from CPAN, like Math::TrulyRandom.

[1] - http://www.perl.com/doc/FMTEYEWTK/random