Add chstatus example for Perl