#!/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 ""