Select Code to Download

  my $dbh = DBI->connect("DBI:mysql:database=proyecto;host=localhost",
                         "root", "xyz123",
...
   while ((my @row) = $sth->fetchrow_array()) {
   print "@row->[0]\n";
   }

my $dbh = DBI->connect("DBI:mysql:database=proyecto;host=localhost",
                         "root", "xyz123",
...

}

my $dbh = DBI->connect("DBI:mysql:database=proyecto;host=localhost",
                         "root", "xyz123",
...
        print "@row->[0]\n"

}

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();