receive perl