update example in Perl