See How do I post a question effectively? and distill your problem down to small code snippert (use Perl::Tidy ....), sample input, expected output, actual received output