$ perl -MTk -e '$m=tkinit; $f=$m->Frame->pack; $b=$f->Button(-text=>"Foo")->grid; $m->after(750,sub{Tk::grid("remove",$b)}); MainLoop'