sub {
print "クソPerl";
}

こういうの?subject・・・・