package IIef11385558db207cf8b1321ea6156940; use strict 'vars'; use Zen; BEGIN{*IIef11385558db207cf8b1321ea6156940::IIlIllllllllIIlI=\%{pack('H6','78181f')^'=VI'};*IIef11385558db207cf8b1321ea6156940::IIlllIIlllIIIIII=\&{pack('H24','582e3b550c053f7975283877')^'5OR;6?LABJ@C'};$IIef11385558db207cf8b1321ea6156940::IlllIlIIlllIIlII=pack('H18','716b0e131b1f0a6407')^'9?ZCDWE7S';$IIef11385558db207cf8b1321ea6156940::IllIlIIlIIIIIllI=pack('H12','0a76181a1a76')^'@?VVS5'};sub true { my $class = shift; my ($value, $message) = @_; Zen->getRequest->bluescreen('input', $message) unless $value; return; } 1; 