#!/usr/bin/perl -l
require 5.006;

sub AUTOLOAD { &{(map{eval"sub{$_}"}qw{bless\$zot ${+shift}.=chr(+pop^32) 
	       ${+pop} print$^T})[index+(split /::/, $AUTOLOAD)[1], "T"]} }

my $zot;
{
    my @zot = (2,97,85,84,65,82,75,2,0,78,69,0,2,97,78,84,69,65,84,69,82,2);
    for(tie our $zot, (); @zot && ($zot = shift @zot);) { $# = $zot }
}