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

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