6 lines
115 B
Perl
6 lines
115 B
Perl
my $tenfactorial;
|
|
print "$tenfactorial\n";
|
|
|
|
BEGIN
|
|
{$tenfactorial = 1;
|
|
$tenfactorial *= $_ foreach 1 .. 10;}
|