$Home = $ENV{'HOME'};

##</code><code>##

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

##</code><code>##

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