Select Code to Download

#! perl
use Modern::Perl;
...
}

print "\nAfter the loop, \$number is $number\n";

12:34 >perl 438_SoPW.pl
Before the loop, $number is 7
...
After the loop, $number is 7

12:35 >