#!/usr/bin/perl -s

################################################################
# Fazedor da lista de devedores pra etaps
#
# Se nao funcionar, nao fui eu que fiz.
# Se funcionar, fui O:-) <rubenfonseca@di.uminho.pt>
################################################################

use strict;
use warnings;
use Text::CSV_XS;
use utf8;

my $csv = Text::CSV_XS->new({binary => 1});
my $file = shift or die "Need a CSV file";

# Parse :D
open F, "<$file";
while(<F>) {
	if($csv->parse($_)) {
		my @fields = $csv->fields;

		if($fields[13] eq 'pending') {
			print "$fields[6]\n";
		}
	} else {
		die $_;
	}
}
close F;