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

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