while ($count<=$size){
            $line=$_;
            print OUT $line;
            $count++;    
            }