Select Code to Download

my $perl = $^X;
$perl =~ s/wperl.exe/perl.exe/i;
use Win32 qw(SW_HIDE);
Win32::SetChildShowWindow(SW_HIDE);
system(1, $perl, '-le', 'warn(666);close STDOUT;use Win32;Win32::MsgBo
+x(0);' );