use strict;
use warnings;

BEGIN {
	print "Starting script on MSWIN\n";
	my $pathTCL = "C:/Tcl/bin/tcl86.dll";
	print "TCL: " . $pathTCL . "\n";
	$ENV{'PERL_TCL_DL_PATH'} = $pathTCL;# showld be the same of: PERL_TCL_DLL
}

use Tcl;