6 my $dbh = DBI->connect('DBI:mysql:database=reports;host=batgirl.gsu.edu','miker','poopie');
8 warn "going for the data...";
10 my $sth = $dbh->prepare('select CAT_KEY,FLEX_KEY from CATALOG');
13 warn "got it, writing file...";
15 while (my $data = $sth->fetchrow_arrayref) {
16 print join('|', @$data) . "\n";