PERL updated