open (FH1,">>C\:\\Users\\Administrator\\Desktop\\Perl\_Scripts\\8312032\_Security\.evtx");
open (FH2,"<C\:\\Users\\Administrator\\Desktop\\Perl\_Scripts\\8312032\_System\.evtx");
while (<FH2>)
{
	print FH1 $_;
}
close (FH1);
close (FH2);