#!/usr/bin/env perl
use strict;
use warnings;
sub foo {
    my ($x) = @_;
    return 0 if ($x == 0);
    return foo $x - 1;
}
foo 3;