sub Save
{
	our $DirName = 'WinLog';
	&DirCreator($DirName);
	foreach (@arr)
	{
		my $Log_obj = Win32::EventLog->new("$_","");
		$FileName = "$_\.evtx";
		$Log_obj->Backup("\.\\".$DirName."\\"."$FileName");
		switch ($^E)
		{
			case /^$/   { print "Log Successfully saved.";}
			case /^Cannot\ create\ a\ file\ when\ that\ file\ already\ exists$/ 
			(
				<This is where Im stuck!!!>
			)
			else 	    { print "Error : $^E"};
		}
		close ("$Log_obj");
	}
}