#!/usr/bin/perl

use warnings;
use strict;
use Carp;
use Storable qw{ freeze };
use File::Slurp;

my %html_files;

opendir TD, '.' or croak $!;

foreach my $file (readdir TD) {
  $html_files{$file} = read_file($file);
}

my $brick = freeze( \%html_files );

open OUT, ">brick" or croak $!;

print OUT $brick;

close OUT or carp $!;

exit 0; # 'good' exit for the shell