my $deparse = B::Deparse->new(
    "-p",   # add extra parentheses
    "-q",   # expand double-quoted strings
    "-sC",  # cuddle else/elsif/continue blocks
    "-x3",  # expand syntax constructs
);