http://perlmonks.org.ru/vorota_v