Ran code through Perl::Tidy