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";
			}

##</code><code>##

here2
here 3
perl usr/test.pl

##</code><code>##

#!perl
print "x" x 489;

##</code><code>##

D:\home\buu\pas>perl -le"use IPC::Open3 qw/open3/; fork; fork; print $$; open3($w, $r, $e, 'perl', 'usr/test.pl'); print <$r>"