my $op = `mkdir winlog`;
if ($op =~ /already exists/i)
	{
		print "Warning : folder already exists.";
	}