perl check