Fixed whitespace in Perl script.