Update myPerl.pl