Select Code to Download

my( $write, $read, $error, $pid );
            if( $is_win32 )
...
                eval{ $pid = open3( $write, $read, $error, $shebang, $
+_ ) };
                print "here 4\n";
            }

here2
here 3
perl usr/test.pl

#!perl
print "x" x 489;