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