Name 		 Age
-------------------
Ana		   25
George		20
Denis		 21
Jim		   28
Mily		  22

##</code><code>##

#!/usr/bin/perl -W

use strict;
use DBI;

my ($sth,$dbh);
my $db_attr  = {RaiseError => 1, PrintError => 1};   
my $db_error = $DBI::errstr;

# Open the connector
my $name_db  = '/opt/name.db';
$dbh = DBI->connect("dbi:SQLite:$name_db","","",$db_attr); 
if (defined($db_error) && $db_error ne " ") {
    print STDERR "Cannot connect to database $name_db: $db_error\n"; 
    exit;
} # end if


# init
$| = 1;	


# Prepare the SQL
my $query = "SELECT name,age FROM name_tab WHERE name = ?";  
$sth = $dbh->prepare($query) or die "Couldn't prepare statement: " . $dbh->errstr;

# the main loop. I read the new line from the console, and fetch the row for this name

while (defined($name_to_check = <>)) {

	# my $name_to_check = 'Denis';	 # rewrite the entry, is working
	
	$sth->execute($name_to_check) or die "Couldn't execute statement: " . $sth->errstr; 
	my ($name_from_db,$age) = $sth->fetchrow_array();
	print "Fetched from SQLite: $name_from_db	Age: $age\n";

}

# Disconect from SQLite
#-----------------------------------------------------------------
$dbh->disconnect(); 
exit 0;