my  $png_data = $im->png;

   print $query->p("$tag : Free energy curve of forward strand and shuffle sequence");
   open (DISPLAY,">/var/www/html/upload/$tag.jpg") ||error ($query, "Cant open GRAPH:") ;
    binmode DISPLAY;
    print DISPLAY $png_data;
    close DISPLAY;
}
  print "<p> ";
#       print "<img src=\"http://localhost/../../../tmp/upload/$tag.jpg\">";
     # 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>";