#! 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 = ); print "You entered: $number\n"; } print "\nAfter the loop, \$number is $number\n";