C:\Documents and Settings\Owner\Desktop>perl -MO=Deparse n8.pl BEGIN { $^W = 1; } sub BEGIN { use warnings; use strict 'refs'; require v5.12; } use constant ('TOP', 1000000); use warnings; use strict 'refs'; BEGIN { $^H{'feature_unicode'} = q(1); $^H{'feature_say'} = q(1); $^H{'feature_state'} = q(1); $^H{'feature_switch'} = q(1); } say '1 is prime.'; say '2 is prime.'; my $found = 2; OUTER: for (my $i = 3; $i < 1000000; $i += 2) { for (my $j = $i - 2; $j > 1; $j -= 2) { next OUTER unless $i % $j; } say "$i is prime."; ++$found; } say "Found $found primes between 1 and ", 1000000, ".\n"; n8.pl syntax OK C:\Documents and Settings\Owner\Desktop>