my $destroy = $0;
   $destroy =~ s/\w+(\.pl)?$/destroy.pl/;
my $process;
Win32::Process::Create($process,
                       $^X, qq(perl.exe $destroy),
                       0, DETACHED_PROCESS,
                       '.') || &error();