sub connectdb {
    unless (-r "as2con.db")
    {
        print "Database file as2con.db does not exist.\n";
        return;
    }
    my $dbase = DBI->connect("dbi:SQLite:dbname=as2con.db", "", "", {PrintWarn => 0, PrintError => 0});
    return $dbase;    
}