#!/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