print header(-type=>'image/png');
binmode STDOUT;
print $im->png;

##</code><code>##

print header;
print "hello world";