#!/usr/bin/perl

use strict;
use warnings;

use MIME::Base64;
use IO::All;
use YAML;

my %files = ();

for my $to_store (@ARGV) {
    $files{$to_store} = encode_base64(io($to_store)->binary->all);
}

print Dump %files;