Encoding an image into Base64 in Perl for gRSShopper

gistfile1.txt

		if ($filerecord->{file_dirname} eq "image/png") {
			my $imgfilename =  $Site->{st_urlf}.$filerecord->{file_dirname};
    	use File::Slurp;
    	use MIME::Base64 qw|encode_base64|;
    	$imagestr = encode_base64( read_file( $imgfilename ) );
    	$imagestr =~ s/\n//g;$imagestr =~ s/\n//g;						# because they get inserted somehow and Badgr chokes on them
    	$imagestr = "data:image/png;base64,".$imagestr;
		}