compile_perl() {
    local noinstall=false

    local OPTIND=1
    local opt
    while getopts 'I' opt; do case "$opt" in
        I) local noinstall=true ;;
    esac; done
    shift $((OPTIND-1))
    [ "$1" = '--' ] && shift

    perl Build.PL --create_packlist=0 \
        --prefix="/$dir_prefix" \
        --destdir="$dir_install" \
        --installdirs vendor \
        --install_path script="/$dir_prefix/$dir_bindir" \
        --install_path bin="/$dir_prefix/$dir_bindir" \
        --install_path bindoc="/$dir_prefix/$dir_mandir/man1" \
        --install_path libdoc="/$dir_prefix/$dir_mandir/man3" \
        $@
    ./Build
    [ "$noinstall" = false ] && ./Build install || true
}