use Tk;
$x = 1.2;
$sq = $x * $x;
print "Before Tk call $x, $sq\n";

$Window = MainWindow->new();

print "After Tk call $x, $sq\n";