a(m|b)using
package Just::another::perl::hacker;sub new{bless\$_}
package main;sub new($){$\=qq;\n;;s;::|=.+$; ;g;print$_,',',}
{$_=Just::another::perl::hacker->new and &new}
package Just::another::perl::hacker;sub new{bless\$_}
package main;sub new($){$\=qq;\n;;s;::|=.+$; ;g;print$_,',',}
{$_=Just::another::perl::hacker->new and &new}
perlmonks.org content © perlmonks.org and bageler
prlmnks.org © 2006 edmund von der burg (eccles & toad)
v 0.03