$png = "test.png";
open(PNG, "$png");
print "Content-type: image/png\n\n";
print do { local $/; <PNG> };