#!/usr/bin/perl
use strict;
use warnings;
use MIME::Base64 qw(encode_base64url);
my $img="/var/www/grafika/graphHour.png";
open(IMG,$img) or die "Can't open $img: $!\n";
my $imgdata;
{local $/=undef;$imgdata=![]()
;}
close IMG;
my $b64=encode_base64url($imgdata);
print "Content-type: text/html\n\n ";
print " \n";
print "\n";
print "\n";
print "
";
print ""