Update PerlMain