my $HOME = (getpwuid $>)[7]; my $ssh_dir = qq{$HOME/.ssh};