while (<IN>){
    rand($.)<1 && ($line=$_);
}
print OUT $line;