in reply to __DATA__ in a Script

Same idea, but shorter: 
$count = @lines = <DATA>;
print @lines[rand($count)];

[download]
Desert coder

In Section Seekers of Perl Wisdom