package connect;
require Exporter;

use strict;
use warnings;

our @EXPORT = qw(connectdb);

sub connectdb {
	my $dbase = DBI->connect("dbi:SQLite:dbname=as2con.db", "", "", {PrintWarn => 0, PrintError => 0});
	return $dbase;	
}

1;