perl rsterlemnade ty ,bara