use File::Glob 'bsd_glob';

my $style = $ARGV[1];
die "bad style" unless $style=~/\A\w+\z/;
require $_ for bsd_glob("$stylespath/$style/*.pm");