xref: /openbsd-src/gnu/usr.bin/perl/lib/perl5db/t/test-l-statement-2 (revision c90a81c56dcebd6a1b73fe4aff9b03385b8e63b3) 
1#!/usr/bin/perl
2
3use strict;
4use warnings;
5
6sub fact {
7    my $n = shift;
8    if ($n > 1) {
9        return $n * fact($n - 1);
10    } else {
11        return 1;
12    }
13}
14
15sub bar {
16    print "One\n";
17    print "Two\n";
18    print "Three\n";
19
20    return;
21}
22
23fact(5);
24bar();
25