I assume that you're using warnings and use strict. Are you using?

use diagnostics
[download]

Also perhaps you might want to rearrange some of your code so that:

print IMG $gd->gif;
if (defined $gd)
[download]

becomes

if (defined $gd)
{
  print IMG $gd->gif;
}
else
{
  ...
}
[download]

conditional.

metadoktor

"The doktor is in."