use strict;
use warnings;
use Tk;

my $mw = tkinit;
$mw->optionAdd('*Custom*Background' => 'red');
my $f  = $mw->Entry(-class => 'Custom',
                    -text  => 'hello world!',
                )->pack;

MainLoop;