Help for this page

Select Code to Download

Select or download this

#!/usr/bin/env perl

...
   choose();
   $x = <STDIN>;
}

Select or download this
```
if ($x<1 or $x>5) THEN GOTO 10
```