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