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