#!/usr/bin/perl

use warnings;

open FH, $ARGV[0] or die;
@lines = <FH>;
print @lines[int(rand(scalar @lines))] . "\n";
close FH;