#!/bin/perl

sub pluriel {
    ($m) = @_;

    $m .= 's';

    return($m);
}

$m = 'dupont';
($f)= pluriel('cerise');
print "M. $m vend des $f\n";