my $img = join('.',time(),$$,'png');
open(OUT,">tmpimages/$img");
print OUT $gd->png;
close(OUT);
print "<IMG SRC=\"$img\">\n";