my $today = $time{'dd_mm_yyyy'};
	foreach $icp (@icpList) {
		$fn = "C:\\SI\\Logs\\log_".$icp."_$today.txt";
		print $fn;