JAPH with AUTOLOAD

[sh1tn]

#!/usr/bin/perl

Just->Another->Perl->Hacker;

package Just;

INIT  { print __PACKAGE__, ' ' }

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

[ambrus]

Nice. For a somewhat related japh, see pete's My JAPH.

Update: clarified that the japh is not mine, the title was confusing.

[sh1tn]

Yep, the example you're pointing to looks better.
Primarily my goal was the visual effect.