#!/usr/bin/perl
@ARGV == 1
	or die "syntax: $0 file\n";
$N=`wc -l $ARGV[0]`;
$N = 1 + int rand($N);
system "tail +$N $ARGV[0] | head -1";