RosettaCodeData/Task/Function-definition/Perl/function-definition-1.pl

sub multiply { return $_[0] * $_[1] }