run perl sample