perltidy -bl -bbc is doing everything right but I want to negate its effect in one situation, namely the conversion of:

while ($foo) {
    # blah blah blah
    --$foo;
}
[download]

to:

while ($foo)
{

    # blah blah blah
    --$foo;
}
[download]

If the comment is the first item in a block, I don't want it to have a blank line inserted above (there's already enough new space generated above by -bl: braces left - not my personal choice btw!).

I have checked all the docs and SuperSearched and googled and am none the wiser - anyone done this before?

Cheers,

   larryk                                          
perl -le "s,,reverse killer,e,y,rifle,lycra,,print"