Select Code to Download

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

open IMAGE, "e:/image1.png";
my $buff;
...
    print $buff;
}
close IMAGE;