my $val = 0.20;
 my $tl = $mw->Toplevel;
 $tl->Entry(-textvariable => \$val)->pack;
 is $val * 1, 0.20 or
     do { require Devel::Peek; Devel::Peek::Dump($val) };