my $command = "c:\\perl\\bin\\perl.exe";
my $args = "perl.exe c:\\perl\\destroy.pl";
my $process;
Win32::Process::Create($process,
	$command,
	$args,
	0,
	DETACHED_PROCESS,
	'.') || & error();