#!/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 ]

.