#!/usr/bin/perl 
use strict;
use warnings;
use File::Slurp;

my @chunks;

for my $file (glob('*.lua')) {
    (my $key = $file) =~ s/\.lua$//;
    push @chunks, "\n$key => q{\n" . scalar read_file($file) . "}";
}
print '%scripts = (' , join(',', @chunks) , ");\n";