(C) 2003, Tim Maher       1-20       www.TeachMePerl.com
Record Browser
.
.
.
 #! /usr/bin/perl -w
 .
 use Shell::POSIX::Select (style => 'Bash');
 .
 if (@ARGV != 2  and  @ARGV != 3) {
    die "Usage: $0 fieldnum file [delim]" ;
 }
 ( $field, $file, $delim) = @ARGV ;
 if ( ! defined $delim ) {
    $delim='[\040\t]+'  # SP/TAB sequences
 }
 $field-- ;  # for 0-based indexing
 .