Select Code to Download

  my  $png_data = $im->png;
  #open (DISPLAY,"| display -") || die;
...
    print DISPLAY $png_data;
    close DISPLAY;

open (I, '<', "/tmp/upload/$tag.jpg");
#print $query->header(-content_type => "image/png");
print while <I>;
close I;
exit;