open (IMG,"< someimage.png") || die; 
binmode IMG; 
my $image = join('',<IMG>); 
close IMG; 
 
print "Content-type: image/png\n\n"; 
print $image;

print header; # this prints content-type: text/html 
 
.... 
 
print "Total Fragments of the sequence are: @count \n";  
print "</pre></code>\n", hr; 
 
my $img_filename = 'some_image.png'; 
print "<img src=\"/web_path/images/$img_filename\"><br />";

print "Total Fragments of the sequence are: @count \n";   
print "</pre></code>\n", hr;  
  
# lets store the image in the images subfolder  
# (relating to the script location) 
my $img_path = 'images/';  
mkdir $img_path unless -d $img_path; 
 
# lets create the image name using the extension  
# taken from the object. the result should be 'images/tmp.png' 
$img_path .= 'tmp.' . $restrict->{_graphictype}; 
 
# storing the image 
my $img_binary = $restrict->get_graphic(); 
open( IMG, "> $img_path" ) || die "can not write to $img_path: $!"; 
binmode IMG; 
print IMG $img_binary; 
close IMG; 
 
print "<img src=\"$img_path\"><br />";

 
AddHandler cgi-script .cgi 
AddHandler cgi-script .pl 
 
Alias /myscript "d:/myscript" 
 
<Directory "d:/myscript"> 
    Options Indexes FollowSymLinks  ExecCGI 
    AllowOverride None 
    Order allow,deny 
    Allow from all 
</Directory>

Alias /myscript "d:/myscript"

# absolute path if host is known and never changes 
print qq|<a href="http://your.host/path/images/">click</a>|; 
 
# path relative to some host root which can be any:  
# http://localhost/ or http://somesite.com/  
print qq|<a href="/path/images/">click</a>|; 
 
# path relative to script location (remote point of view)  
print qq|<a href="images/">click</a>|;