Select Code to Download

patentes,nombre,archivo,email
1458,juan armando,1458DATA,ao@gmail.com
...
3500,AAA,3500DATA,adez@aa.com
3700,Armando Juan ,3700DATA,armo@hotmail.com
4500,padawan,4500DATA,padawan@gmail.com

my $dbh = DBI->connect("DBI:CSV:f_dir=/Proyecto/")
        or die "Cannot connect: " . $DBI::errstr;
...
        or die "Cannot prepare: " . $dbh->errstr();
    $sth->execute() or die "Cannot execute: " . $sth->errstr();
while ( my @$row = $sth->fetch) {

#!/usr/bin/perl
use warnings;
...


}