#!/usr/bin/perl

Just->Another->Perl->Hacker;

package Just;

INIT  { print __PACKAGE__, ' ' }

sub AUTOLOAD { bless [print+($AUTOLOAD=~/::(.+)/)[0], q/ /] } 
sub DESTROY    {}