>>910
やってみたら判るだろ?
perl -le '$_= 1 ;sub { $_=2}->(); print $_ '