package Tk::MyEntryCheck;
# ... some code like strict/warnings/...
use base qw(Tk::Derived Tk::Entry);
Construct Tk::Widget 'MyEntry';
sub Populate { # some code here }