root@srv1 ~ # cat .perltidyrc ; echo; echo; cat x.pl; echo; perltidy x.pl
# .perltidyrc configuration file
-pbp     # Start with Perl Best Practices
-l=78   # Max line width is 78 cols
-i=4    # Indent level is 4 cols
-ci=2   # Continuation indent is 2 cols
-st     # Output to STDOUT
-se     # Errors to STDERR
-vt=2   # Maximal vertical tightness
-cti=0  # No extra indentation for closing brackets
-pt=1   # Medium parenthesis tightness
-bt=0   # Medium brace tightness
-sbt=1  # Medium square bracket tightness
-bbt=1  # Medium block brace tightness
-nsfs   # No space before semicolons
-nolq   # Don't outdent long quoted strings
-nbbc   # no blank lines before comments
-isbc    # Don't indent comments without leading space
-wbb="% + - * / x != == >= <= =~ !~ < > | & >= < = **= += *= &= <<= &&= -= /= |= >>= ||= .= %= ^= x="
        # Break before all operators



my %a;
my $b={'c'=>0,'d'=>0};
if(1)
{
my $b = { 'c' => 0, 'd' => 0 };
$a{$b->{'c'}}=$b->{'d'}
}

my %a;
my $b = { 'c' => 0, 'd' => 0 };
if (1) {
    my $b = { 'c' => 0, 'd' => 0 };
    $a{ $b->{ 'c' } } = $b->{ 'd' };
}