my $f = sub add-one($n) {
    $n + 1;
}

$f(3) == 4 or die "Wrong value";