use File::HomeDir ();
my $HOME = File::HomeDir->my_home;
chdir $HOME or die "Couldn't chdir $HOME: $!";