#!/usr/bin/perl
use strict;
use warnings;

use DBI;

my $dbfile = "bank";

my $dsn      = "dbi:mysql:dbname=$dbfile";
my $user     = "donfox1";
my $password = "nodxof";
my $dbh = DBI->connect($dsn, $user, $password, {
   PrintError       => 0,
   RaiseError       => 1,
   AutoCommit       => 1,
   FetchHashKeyName => 'NAME_lc',
});

my $sql = 'SELECT name, address FROM branch';
my $sth = $dbh->prepare($sql);
$sth->execute(1,10);
while (my @row = $sth->fetchrow_array) {
   print "name: $row[0]  address: $row[1]\n";
}

$sth->execute(12, 17);
while (my $row = $sth->fetchrow_hashref) {
   print "fname: $row->{name}  lname: $row->{address}\n";
}

$dbh->disconnect;


print "\tSTUBB_1\n";