Fix perl/status.t unit tests