Shell Programming and Scripting

#!/usr/bin/perl

use DBI;

BEGIN {
    $ENV{ORACLE_HOME} = '/home/oracle/product/8.1.7';
    $ENV{TWO_TASK}    = 'DB';
}
$dbh = DBI->connect("dbi:Oracle:host=172.16.1.29;sid=pindb", "pin", "pin") or die "Unable to connect: $DBI::errstr"; 
$query="select TNAME from tab";
$prakash=$dbh->prepare($query);
$prakash=execute();
open(OUTPUT,">prakash.csv") || die "can not open file";
while(@row = $prakash->fetchrow_array) {
  print OUTPUT "tname\n";
}
$prakash->finish;
close(OUTPUT); 
$dbh->disconnect();