There's a nasty bug in this line of code:

if  ($NotFound=="false") {
[download]

You should compare strings using eq, not ==. As it stands, this expression is always true.

--
<http://www.dave.org.uk>

European Perl Conference - Sept 22/24 2000, ICA, London
<http://www.yapc.org/Europe/>