Select Code to Download

use strict;
use warnings;
...

print '@INC =('.(join ",", @include).")\n\n";
print '%INCLUDE%=('.$ENV{'INCLUDE'}.")\n";

I:\Documents\Perl\U3 Perl Config scripts>perl testenv.pl
@INC =(I:/strawberry/perl/lib,I:/strawberry/perl/site/lib,.)
...
GTK\INCLUDE\GTKGLEXT-1.0;C:\System\GTK\LIB\GTK-2.0\INCLUDE;C:\System\G
+TK\LIB\GLI
B-2.0\INCLUDE;C:\System\GTK\LIB\GTKGLEXT-1.0\INCLUDE;C:\System\GTK\INC
+LUDE\LIBGL
ADE-2.0;C:\System\GTK\INCLUDE\LIBXML2;c:\system\usr\include)