use warnings;
use FindBin qw($Bin);

BEGIN {
 print "Starting script on MSWIN \n";
 print "My directory: $Bin\n";
 my $pathTclDLL = $Bin . "\\tcltk2\\bin\\tcl86.dll";
 my $pathTclBin = $Bin . "\\tcltk2\\bin";
 print "TCL DLL: " . $pathTclDLL . "\n";
 print "TCL BIN: " . $pathTclBin . "\n";
 $ENV{PATH}=$pathTclBin;
 $ENV{'PERL_TCL_DL_PATH'} = $pathTclDLL;
		
 print "Printing ENV\n";
 print my $path = $ENV{'PATH'}; 
}
use Tcl;