use Tcl::Tk;
my $mw = Tcl::Tk::tkinit;

$mw->Entry->tooltip('enter small values here')->pack;
$mw->Button(-text=>'test')->tooltip("test button\npress to see the result")->pack;

Tcl::Tk::MainLoop;