convert file to data URI

file2datauri.pl

#!/usr/bin/env perl
use strict;
use warnings;
use File::Slurp;
use MIME::Base64;
use Plack::MIME;

my $file = shift or die "usage: $0 file¥n";
my $mime = Plack::MIME->mime_type($file) or die "Cannot find MIME type for $file";

printf 'data:%s;base64,%s', $mime, encode_base64(read_file($file, { binmode => ':raw' }), q{});