#!/usr/bin/perl
use 5.018;
use strict;
use warnings;

# 1118814

use Cwd;
use File::HomeDir();

my $cwd = getcwd();
say "At Ln 12: \$cwd: $cwd";


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

say "At Ln 18; \$HOME: $HOME";

$cwd = getcwd();
say "At Ln 21, \$cwd: $cwd";

=head Execution:

C:\>D:\PMonks\1118814.pl
At Ln 12: $cwd: C:/
At Ln 18; $HOME: C:\Users\ww
At Ln 21, $cwd: C:/Users/ww

=cut