#!/usr/bin/perl -w

use DBI;

# Connect to the mySQL server and
# get today's orders.

my $dbh = DBI->connect("DBI:mysql:orders:localhost","user","passwd")

   || die "Could not connect:".DBI->errstr;
my $sql_stmnt = "SELECT order_id, item_no, qty, price
                 FROM orders WHERE order_date=CURRENT_DATE'";
my $sth = $dbh->prepare($sql_stmnt);
$sth->execute();

while(@orders = $sth->fetchrow_array()) {
   $order_id = $orders[0];
   $item_no = $orders[1];
   $qty = $orders[2];
   $price = $orders[3];

# Create record with bars as delimiters
# and push record into array for exporting.

   $order = $order_id . "|" . $item_no . "|" . $qty . "|" . $price . "\n";
   push(@export, $order);
}
$sth->finish();
$dbh->disconnect();

# Now loop through array of orders
# and save to text file.

open(EXP, ">client-orders.txt")
  || die "Could not open export file: $!";
foreach(@export){ print EXP; }
close(EXP);