print "Expires: Fri, 30 Oct 1998 14:19:41 GMT\n";

##</code><code>##

open IMAGE, "e:/image1.png";
my $buff;
while(read IMAGE, $buff, 1024) {
    print $buff;
}
close IMAGE;