in reply to Re^6: Wperl.exe fails with Tk + piped process ( Win32 )
in thread Wperl.exe fails with Tk + piped process ( Win32 )

Or you could  wperl fudge.pl 
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);' );

[download]

In Section Seekers of Perl Wisdom