Select Code to Download

#!/usr/bin/perl -w

...
    my $val = double shift;
    return Mod3::triple($val);
}

#!/usr/bin/perl -w

...
    my $val = Mod2::double(shift);
    return Mod2::double($val);
}

#!/usr/bin/perl

...
    say "$x * 4 = ", fourtimes($x);
    say "$x * 6 * 4 = ", sixtimes (fourtimes($x));
}

$ perl usemod.pl
0 * 3 = 0
...
4 * 6 = 24
4 * 4 = 16
4 * 6 * 4 = 96