my( $write, $read, $error, $pid );
			if( $is_win32 )
			{
				print "here2\n";
				open my $file, "<", $_ or warn "Can't open $_ for reading"; #log
				chomp( my $shebang = <$file> );
				close $file;
				
				warn "Bad shebang: $shebang - $_" unless $shebang =~ s/^\#!//; #log #shitty highlighting
				
				#warn "$shebang $_"; #log
				print "here 3\n";
				print "$shebang $_",$/;
				eval{ $pid = open3( $write, $read, $error, $shebang, $_ ) };
				print "here 4\n";
			}