BEGIN {
    my $frameworkpath;
    $frameworkpath = "$Bin/Frameworks/Tcl.framework/Tcl";
    $ENV{'PERL_TCL_DL_PATH'} = $frameworkpath;
}