use MIME::Base64;
...
        for my $file (@files) {
            next if $file eq "." || $file eq "..";
            $DIR{$file} = encode_base64(read_file "$directory/$file");
        }
...