in reply to Reinvent a broken wheel?
I suggest trying out getimages. You can download an improved version from http://giuliomotta.com/perl/getimages.tar.gz. It's not perfect, but does the dirty job for me.
$|=$_="1g2i1u1l2i4e2n0k",map{print"\7",chop;select$,,$,,$,,$_/7}m{..}g
In Section
Seekers of Perl Wisdom