print $foo->print_me(sub {ucfirst shift}), "\n";