use strict;
use CGI;

my $q = CGI->new();
{
	local *IMAGE;
	open(IMAGE, $q->param('image')) || die "Can't open: $!";
	binmode(STDOUT);
	print while <IMAGE>;
	close IMAGE;
}