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

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

__END__