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