(C) 2003, Tim Maher       1-13       www.TeachMePerl.com
Image Browser
Source Code
.
.
 #! /usr/bin/perl -w
 .
 use Shell::POSIX::Select ;
 .
  # Popular Linux viewer
 $viewer='/usr/X11R6/bin/xv';
 .
 $pattern='\.(jpg|gif|tif|png\$)';
 .
 select ( grep /$pattern/i, <*> ) {
   system "$viewer $_ &";  # BG exec
 }