Updated init.pp to work with Perl 5.10 and our env...