#! perl
use Modern::Perl;

my $number = 7;
print "Before the loop, \$number is $number\n\n";

for (my $number = 0; $number != 10;)
{
    print 'Please enter a number (10 to quit): ';
    chomp($number = <STDIN>);
    print "You entered: $number\n";
}

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

##</code><code>##

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

Please enter a number (10 to quit): 1
You entered: 1
Please enter a number (10 to quit): 0
You entered: 0
Please enter a number (10 to quit): 100
You entered: 100
Please enter a number (10 to quit): 10
You entered: 10

After the loop, $number is 7

12:35 >