Select Code to Download

#!/usr/bin/perl -w
use strict;
...
                                        #an "off-by-one" error, Oops!
print "$random_file\n";

#Chapter 8.6. Picking a Random Line from a File
#Problem: You want to return a random line from a file.
...

srand;
rand($.) < 1 && ($line = $_) while <>;