Changed to use File::HomeDir to get home directory