Select Code to Download

# *always* use these - they do (some of) your error
# checking for you! - saves *lots* of time
...
   #this bit is wrong - see discussion below
   print "*" x $y, "\n";
}