use strict; use warnings; I->can(print"Just Another Perl Hacker") [download]
Not quite.
The interesting part is