my $q = CGI->new();
		say $q->header() , $q->start_html("Z weather");
		say "<center>";	
                say "<p><strong>Weather measurements</p></strong>";
		
		my $image;
		my $imageHandle;
		local $/ = undef;
		open ($imageHandle , "< $imagefile");
		binmode $imageHandle;
		$image = <$imageHandle>;
		close ($imageHandle);
		my $r = CGI->new();
		print $r->header(-type=>'image/png') , $image;
		say "</center>";
		say $q->end_html();