#!/usr/bin/perl

use DBI;
$tns="cuug";
$user="scott";
$passwd="oracle";
$dbh = DBI->connect("dbi:Oracle:$tns","$user","$passwd") or die "can't connect to database ". DBI-errstr;
$sth=$dbh->prepare("select * from emp");
$sth->execute;

while (@recs=$sth->fetchrow_array) {
print $recs[0].":".$recs[1]."\n";
}

$dbh->disconnect;