#!/usr/bin/env perl use strict; use ABAC; my $ctx = ABAC::Context->new;