#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

require MIME::Base64;
my $x = MIME::Base64::encode_base64('abc');
say $x; 


##</code><code>##

$ perl 1133493.pl
$ YWJj

$