It does not take a Perl grand master to guess what this code will do -- but it takes the Sidhekin's betters to accurately explain this behaviour. After coming up with this, I had to run it to convince myself :-)

#!/usr/bin/perl
require 5.005; use strict;$_=q*q,q,   *;AUTOLOAD{s&main::
               &&x=>print(),for$main::AUTOLOAD,$,=chop}{&
Just           if "Can::c"   eq ref bless{},"Can::c"  }{&
 another       if "Can't::c" eq ref bless{},"Can't::c"}{&
  Perl         if "Can't::t" eq ref bless{},"Can't::t"}{&
   trickster   if "Can::t"   eq ref bless{},"Can::t"  }{&
    hacker     if "Can::hack" and eval } # © The Sidhekin
[download]

One hint, for those who do not have a real time Perl compiler cyberware or equivalent wetware -- try again after applying an s/::t/::x/g to that code.

The Sidhekin