my $dbh = DBI->connect("DBI:mysql:database=proyecto;host=localhost",
                         "root", "xyz123",
                         {'RaiseError' => 1});
   my $sth = $dbh->prepare("SELECT PAT FROM patentes");

 $sth->execute();
   while ((my @row) = $sth->fetchrow_array()) {
   print "@row->[0]\n";
   }

##</code><code>##

my $dbh = DBI->connect("DBI:mysql:database=proyecto;host=localhost",
                         "root", "xyz123",
                         {'RaiseError' => 1});
   my $sth = $dbh->prepare("SELECT PAT FROM patentes");

  $sth->execute();
   while ((my @row) = $sth->fetchrow_array()) {

my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
  $dbh->func( 'cars', 'CSV', 'testperl.csv', 'ad_catalog');
  my $sth = $dbh->prepare("SELECT * INTO OUTFILE @row->[0].csv FROM cars WHERE pat = @row->[0]);
  $sth->execute();

}


##</code><code>##

my $dbh = DBI->connect("DBI:mysql:database=proyecto;host=localhost",
                         "root", "xyz123",
                         {'RaiseError' => 1});
   my $sth = $dbh->prepare("SELECT PAT FROM patentes");

  $sth->execute();
   while ((my @row) = $sth->fetchrow_array()) {
        print "@row->[0]\n"

}

##</code><code>##

my $dbh = DBI->connect('dbi:AnyData(RaiseError=>1):');
  $dbh->func( 'cars', 'CSV', 'testperl.csv', 'ad_catalog');
  my $sth = $dbh->prepare("SELECT * FROM cars WHERE PAT =@row->[0]");
  $sth->execute();