RosettaCodeData/Task/Compile-time-calculation/Perl/compile-time-calculation-1.pl

my $tenfactorial;
print "$tenfactorial\n";

BEGIN
   {$tenfactorial = 1;
    $tenfactorial *= $_ foreach 1 .. 10;}