Mark Overmeer (http://mark.overmeer.net/) presented two apps at the German Perl Workshop. One was a tool to make presentations called ppresenter, the other one was some image viewer/manipulator, but I can't find any info about that on his homepage.
--
#!/usr/bin/perl -w just another perl hacker
print+seek(DATA,$=*.3,@-)?~~<DATA>:$:__DATA__