print $style;
$style = eval $style;
die $@ if $@;
print $style;