#!/usr/bin/perl


use win32::OLE qw(in);
use warnings;
#$search="possible error text";

open(INFO, "E:\\Mibor_TimingTest\\Mibor\\output.txt");
open(OUT, "c:\\perl\\scripts\\counter.txt");
my @array=<INFO>;

foreach $line(@array){

print (OUT "$line");
}close (INFO);
close (OUT);