use DBI;

my ($dbh,$sql,$sth);

#my $dbh = DBI->connect ('dbi:Pg:dbname=wls','postgres','');
#if(!defined $dbh) {die "Cannot connect to database!\n";}
 
$dbh = DBI->connect("dbi:SQLite:dbname=/home/buoy/temp2/test1.db", "", "",
                    { RaiseError => 1, AutoCommit => 1 });

	$sql = qq{ SELECT * from mytest };
	#$sql = qq{ SELECT * from air_temperature limit 1 };
	#print $sql."\n";
	$sth = $dbh->prepare( $sql );
	$sth->execute();
	my ($x,$y) = $sth->fetchrow_array;

print "$x $y \n";

$sth->finish();
undef $sth; # to stop "closing dbh with active statement handles"
            # http://rt.cpan.org/Ticket/Display.html?id=22688

$dbh->disconnect();

exit 0;