sub my_factorial {
    ...
    if($n == 0) {
        $r=0;
    }
    return $r;
}