#!/usr/bin/perl

use warnings;
use strict;
use MIME::Base64;

my $image;

open(IMAGE, 'img.jpg') or die $!;

while(<IMAGE>){
        $image .= $_; 
}
close(IMAGE);

my $encoded = encode_base64($image);
print $encoded;