#!/usr/bin/perl
use warnings;
use strict;
use DBI;
use DBD::ODBC;
my $dbh = DBI->connect( "DBI:ODBC:employeeDB", "", "" ) or die( "Could not make connection to database: $DBI::errstr" );
my $sth = $dbh->prepare( q{ SELECT * FROM employee } ) or die( "Cannot prepare statement: ", $dbh->errstr(), "\n" );
my $rc = $sth->execute() or die( "Cannot execute statement: ", $sth->errstr(), "\n" );
my @array;
while ( @array = $sth->fetchrow_array() ) {
write();
}
warn( $DBI::errstr ) if $DBI::err;
$sth->finish();
$dbh->disconnect();
format STDOUT =
@<<<<<<@<<<<<<<<<@<<<<<<<<<<@<<<<<@<<<<<<<<<<<<
$array[ 0 ], $array[ 1 ], $array[ 2 ], $array[ 3 ], $array[ 4 ]
.