#!/usr/bin/perl -w
#
# ex2.pl: Written by Alligator Descartes 

use DBI;

#$dbh = $drh->connect( 'testdb', 'testuser', 'testpass', 'Oracle' );
						# Uncomment for Oracle
#$dbh = $drh->connect( 'hostname', 'dbname', '', 'mSQL' );	# Uncomment for mSQL
die unless $dbh;

$cursor = $dbh->prepare( "SELECT field FROM table" );

$cursor->execute;

while ( $field = $cursor->fetchrow ) {
    print "Field: $field\n";
  }

$cursor->finish;

$dbh->disconnect;

exit;