http://perlmonks.org.ru/vorota_v_perl/Tune