Not exactly like File::Basename, but I never use a suffixlist

sub File::Spec::dirname {
    shift;
    return File::Spec->catpath( ( File::Spec->splitpath(shift) )[ 0, 1
+ ] );
}
sub File::Spec::basename {
    shift;
    return File::Spec->catpath( ( File::Spec->splitpath(shift) )[ -1 ]
+ );
}
[download]