use strict;
use Storable;
use File::Slurp;

my %html_files = map { ($_, scalar read_file($_)) }
                   read_dir(".");
store(\%html_files, "brick");