I find the following easier to read:
```perl
print $fh "$srv->{preamble}\n" if $srv->{preamble};
```