Setting up script to practice with modern perl