$ perl -le 'sub test { 42 } print test(); print &test()'
42
42