my $line;
my @fields;
while ( $line = <FILE> ) {
   print STDERR "<$line>\n";
    @fields = &quotewords( ',', 0, $line )
      or ( warn "a problem on line $.:$_" );
   # rest of code ...
}