evalでcode reference
evalでcode referenceも作れる。
#!/usr/bin/perl use strict; use warnings; my $code = << 'END_CODE'; my $arg = shift || "World"; print "Hello $arg\n"; return; END_CODE eval $code; # Hello World my $func_ref = eval "sub { $code }"; $func_ref->(); # Hello World $func_ref->("Eval World"); # Hello Eval World