http://perlmonks.org.ru/vorota_v_perl/2010/11/12/duhovka3.jpg