package Tk::Widget;
use Tk::Entry;
# ...
sub MyEntry { # construcor
  # ...
  my $entry = $parent->Entry(.....);
}