10 my $js = decode_json
<STDIN
>;
13 open $fh, ">", "$dir/$e->{name}.css";
14 print $fh "/* -*-css-*- */\n";
15 for my $s ($e->{sections
}->@
*) {
16 KEY
: for my $k (keys %$s) {
17 next KEY
if $k eq "code";
18 print $fh "/*@ $k: ", join(", ", $s->{$k}->@*), " */\n";
20 print $fh $s->{code
}, "\n";
21 print $fh "/*\@END*/\n";