$Tk::Home = $ENV{'HOME'};