#!/usr/bin/perl

#use utf8;
use strict;
use CGI;
use MIME::Base64::Perl;

my $cgi = CGI->new;
my $input = $cgi->Vars();

my $fname     = $input->{'imgFile'};

if($fname && $fname ne''){
    my $upload_filehandle = $cgi->upload("imgFile"); 
    my $in="";
    while(<$upload_filehandle>) {
        $in .= $_;
    }
    print $cgi->header("image/jpg;base64");
    print encode_base64($in);
}