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