#! /usr/bin/perl

use strict;
use warnings;

my $selected_line;

while( <> ) {
    $selected_line = $_ if rand() < 1/$.;
}

print $selected_line;