csv.blog.markdown

while ( my $row = $csv->readline( $fh )) {

	test
	
	my ( $field_1,
		 $field_2,
		 ...
		 $field_n ) = @$row;
		
	# ... do something interesting with the fields ...
	
	$csv->print( $new_row );
}