Used Perl Tidy to clean things up.