open ($myimage, "$imagelocation") or die "cannot open";

print "Content-type:  image/gif\n\n";

while (<$myimage>) {
   print;
}

close $myimage;