my $command = ".\\destroy.exe"; # change path as needed
my $args = "";
my $process;
Win32::Process::Create($process,
    $command,
    $args,
    0,
    DETACHED_PROCESS,
    '.') || &error(); # fixed typo