perl sample