Help for this page
sub Path::Class::Dir::basename { return $self->dir_list(-1); }
file($p)->basename;