open my $fh,'<',$some_file or die $!;
my $size = -s $fh;
seek $fh, rand($size) , 0;
<$fh>; #throw away current line;

my $randomline = <$fh>;

close $fh;