use Tk::Pretty;
@config = $entryvar->configure;
print Pretty @config;


##</code><code>##

$entryvar=$main->Entry(-text => "var")->grid(-column => 10, -row => 5);
$entryvar->configure(-width => 30, -height => 20);