perl -e 'sub two { $_[0] + 2 };print two + 2'