use strict;
use warnings;

use MIME::Base64;

my $img_file = $ARGV[0];

open my $file_fh, '<', $img_file
    or die "Can't open file ",$img_file, ": $!";

binmode $file_fh;

my $photo = do {local $/; <$file_fh>};

# Encode
my $stream = encode_base64($photo, q{}) or die $!;

print "$stream\n";

close $file_fh;