#!/usr/local/bin/perl


print "Please enter a number: ";

$n = <STDIN>;

for ($i = 0, $i <= $n, ++$i) {
  $acc += $i;
}

print "$n! = $acc\n";