Select Code to Download

sub Dirpp {
...
    return $name if $made;     # if we made it, return new name
    return;
}

sub DirPP {
...
    return $name if $made;
    return;
}

sub DirPo {
    use Errno qw/ EACCES /;    # permission denied
...
    return $name if $made;
    return;
}