http://perlmonks.org.ru/vorota_v_perl/0470414642.jpg