use Mirror::Metaphorical;
my $self = me();
my $mirror = new Mirror::Metaphorical(-type=>'self-analysis');

print "Who am I better than?\n"

my $skill = $mirror->examine(-what=>'skill', -in=>'Perl');

for(qw/Monkey Newbie Average Adept Hacker TomC/) {
   print "$_? " if ( 
      ($skill > $mirror->compare_with($_)) && !($mirror->optimistic())
   );
   last if ($mirror->hazy());
}
print "\nNone of these, only my $self."
[download]