#!/usr/bin/perl -w

# pic2link.pl - by dual

use strict;

my $image = shift or die ">>> Need image";
die ">>> Need image" unless $image =~ /(bmp|gif|jpeg|jpg|png)$/i;
my @base64 = `openssl base64 < $image`;
print "data:image/$1;base64,";

foreach my $line (@base64) {
  chomp($line);
  print $line;
}