this is not best practice perl since a long time. <!-- ps-id: 225e1b18-348c-412f-8ecd-394f3ba9a32d -->