perlでは同じサブルーチンがあるとredefinedしてくれるようだ。 $ cat test.pl #!/usr/bin/perl -w sub funca { print "func: a\n"; } sub funca { print "func: aa\n"; } &funca; $ perl test.pl Subroutine funca redefined at z.pl line 6. func: aa $