What do you guys do to have a consistent style for both Perl built-in functions and your own subroutines?

Actually really preferring one style over another helps. Your way isn't bad, if that is what you like. Except, of course, that you didn't check the return values for open and close (and print). My style guide explains the way I like my Perl, in case you want to know the details.