use File::HomeDir;
    my $home_dir = File::HomeDir->my_home;
    ... do stuff in home dir