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

use signatures;
sub multiply ($x, $y) {
    return $x * $y;
}