#!/usr/local/bin/perl
#!/usr/bin/perl -l
use strict;
use warnings;

sub fact{
  my $r = 1;
  $r *= $_ for 1..shift;
  $r;
}

print "$_! = ", fact $_ for 1..shift||20;