package IIa7e18da9a1870a23e5d1573a274b9cd7; use strict 'vars'; use Zen; BEGIN{*IIa7e18da9a1870a23e5d1573a274b9cd7::lllIIIlIlIIlllll=\%{pack('H6','1c721a')^'Y<L'};*IIa7e18da9a1870a23e5d1573a274b9cd7::IlIIlIIIlIlIlIll=\&{pack('H24','373529250273476c08314c65')^'ZT@K8I4T?S4Q'};$IIa7e18da9a1870a23e5d1573a274b9cd7::IlIlIIllIIIlIIIl=pack('H18','0d1d160213031f1417')^'EIBRLKPGC';$IIa7e18da9a1870a23e5d1573a274b9cd7::lIlIlIIIlIIIIIIl=pack('H12','73190a7e7c08')^'9PD25K'};sub true { my $class = shift; my ($value, $message) = @_; Zen->getRequest->bluescreen('input', $message) unless $value; return; } 1; 