Re^2: CGI-Perl:: Location for saving the GD output

[cool]

Here is the part of complete code that is of around 2000 lines.

 
 my  $png_data = $im->png;

   print $query->p("$tag : Free energy curve of forward strand and shu
+ffle sequence");
   open (DISPLAY,">/var/www/html/upload/$tag.jpg") ||error ($query, "C
+ant open GRAPH:") ;
    binmode DISPLAY;
    print DISPLAY $png_data;
    close DISPLAY;
}
  print "<p> ";
#       print "<img src=\"http://localhost/../../../tmp/upload/$tag.jp
+g\">";
     # print "<img src=\"http://127.0.0.1/upload/$tag.jpg\">";
       print "<img src=\"upload/$tag.jpg\">";
#       print "<img src=\"http://localhost/image.jpg\"> ";
        print "</p>";