Присвоение дефолтных значений в perl
http://perlmaven.com/how-to...fault-values-in-perl