#!/usr/bin/perl -w
use warnings;
use strict;
use Tk;
use Devel::Peek;

my $scale = 22.5;
my $x = 14;
my $foo = $x * $scale; # use in numeric context (set NV and IV)
my $sb = 22.5 * 14;
my $i=0;
print "\n0 str: <$scale> / num: <".(0+$scale)."> product $foo should be $sb\n";
Dump($scale);

my $mw = MainWindow->new;
$mw->Entry(-textvariable=>\$scale)->pack;
$mw->bind("<Key-Return>",\&calc);

MainLoop;


sub calc {
    $foo = $scale * $x;
    my $s2 = $scale.' ';
    my $foobar = $s2 * $x;
    $i++;
	print "\n$i str: <$scale> / num: <".(0+$scale)."> product $foo stringified $foobar should be $sb\n";
    Dump($scale);

}