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";


##</code><code>##

Before Tk call 1.2, 1.44
After Tk call 1,2, 1,44