If you're new to perl i suggest you read and practice with the tons of tutorials available online before trying to understand another's code