#!/usr/bin/perl

use strict;
use warnings;

use MIME::Base64;
use IO::All;

my $g = io($ARGV[0])->binary->all;
print '<IMG SRC="data:image/png;base64,', encode_base64($g), '" alt=""/>';