sub bsd_size_check {
    return (&BSD::Resource::getrusage())[2,3];
}
# ...
            $HOW_BIG_IS_IT = \&bsd_size_check;
# ...
    my($size, $share) = &$HOW_BIG_IS_IT();

    if (($MAX_PROCESS_SIZE && $size > $MAX_PROCESS_SIZE)
                           ||
        ($MIN_SHARE_SIZE && $share < $MIN_SHARE_SIZE)
                           ||
        ($MAX_UNSHARED_SIZE && ($size - $share) > $MAX_UNSHARED_SIZE)) {