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 ] );
}