BEGIN {
    use Win32 qw(SW_HIDE);
    Win32::SetChildShowWindow(SW_HIDE);
    my $perl = $^X;
    if( $perl =~ s/wperl.exe/perl.exe/i ){
        system(1, $perl, $0, @ARGV );
        exit;
    }
}