#! /usr/bin/perl
use strict;
use MIME::Base64 qw( encode_base64 );
use IO::All;

encode_base64( io( $ARGV[0] )->slurp ) > io( $ARGV[1] );

__END__

##</code><code>##

#! /usr/bin/perl
use strict;
use MIME::Base64 qw( decode_base64 );
use IO::All;

decode_base64( io( $ARGV[0] )->slurp ) > io( $ARGV[1] );

__END__

##</code><code>##

Z:\>perl encode_base64.pl yearsinservice.pdf yis.b64

Z:\>perl decode_base64.pl yis.b64 yis.pdf