path: root/bin/rand_line

#!/usr/bin/perl

my $save = '';
while (<>) {
    $save = $_ if !int rand $.;
}
print $save;