perl setup script