Shouldn't the

while ($input =~ /^yes$/ or $input =~ /^no$/);
[download]

actually be

while ($input !~ /^yes$/ or $input !~ /^no$/);
[download]

?

---

Who says that programmers can't work in the Marketing Department?
Or is that who says that Marketing people can't program?