Help for this page

Select Code to Download

Select or download this
```
while (my $current_number = <STDIN>)
```
Select or download this
```
last if $current_number eq 'Q';
```

Select or download this

print "Enter a number ('Q' to quit):\n";