sub Path::Class::Dir::basename {
    return $self->dir_list(-1);
}

##</code><code>##

file($p)->basename;