Live TV head shave raises €400,000