Paul Haeberli inspired paint app implemented in Perl