Shell Programming and Scripting

#!/usr/bin/perl-w

##############################################
use strict;
use Template;
use DBI;
use CGI;
use warnings;


my $user='web';
my $password='nouser';
my $db='bible';
my $dsn = "DBI:mysql:$db";
my $dbh = DBI->connect($dsn, $user, $password) or die $DBI::errstr;

$tt_object = Template->new(
   {
   INCLUDE_PATH =>
               [ '/export/srv/www/vhosts/main/tt2' ]
   }
   );
$template = '1.tt2';

my($template, $tt_object, $cgi_object, $sample, $vars, $title,$heading,
   %where);

my $N_query=qq~SELECT distinct(bname) FROM kjv WHERE bsect='N'~;

my $sth=$dbh->prepare($N_query);
$sth->execute;
my $N_booknames=$sth->fetchall_arrayref({});


$vars = {
               N_booknames =>$N_booknames,
       };

$tt_object->process ( $template, $vars ) || die;


__END__

[% FOREACH i IN N_booknames %]
<option value="[% i %]">[% N_booknames.$i %]</option>
[% END %]

[% FOREACH i IN N_booknames %]
<option value="[% i %]">[% N_booknames %]</option>
[% END %]

  N_booknames =>@$N_booknames,