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

sub multiply( $$ )
{
   my ($a, $b) = @_;
   return $a * $b;
}