my $szPath = 'C:\winzip.log';
while (1) {
	unlink $szPath;
	select(undef, undef, undef, 60);
}