my $code = sub {
   my $self = shift;
   print "Dang, it worked.\n";
};
return $code;