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 $(expr $OPTIND - 1)
    [ "$1" = '--' ] && shift || true

    perl Build.PL --create_packlist=0 \
        --prefix="/$dir_prefix" \
        --destdir="$dir_install" \
        --installdirs vendor \
        --install_path script="/$dir_prefix/$dir_bin" \
        --install_path bin="/$dir_prefix/$dir_bin" \
        --install_path bindoc="/$dir_prefix/$dir_man/man1" \
        --install_path libdoc="/$dir_prefix/$dir_man/man3" \
        "$@"
    ./Build

    if [ "$noinstall" = false ]; then
        ./Build install
    fi
}