>>67
my $foo = sub {
　　print "ちんこギター\n";
}; # (*)
&$foo;

(*)の部分にセミコロンがいる, そんだけ.