open my $fh, "somefile" or die $!;

my $line;
rand($.) < 1 && ($line = $_) while <$fh>;