#! /usr/bin/perl

use strict;
use warnings;

my $selected_line;

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

if( defined $selected_line ) {
    print $selected_line;
} else {
    warn "No text lines in input data files"
}