Select Code to Download

pipe(FROM_P, TO_C) or die "pipe: $!";
select(((select(TO_C), $| = 1))[0]);

...
      }
   }
}

sub GMSMain_Terminate
{
   defined(my $win = $Win32::GUI::Loft::window{GMSMain}) or return(1);
...
   return(-1);

}