perl in init-scripts