Select Code to Download

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