$v = 0; 
 my $dbh = DBI->connect( "dbi:SQLite:dbname=mydatabase.db", "", "" )|| die "Cannot connect: DBI";

 # If the file exists delete the information in it
 eval 
		{
    	local $dbh->{PrintError} = 0;
    	$dbh->do("DROP TABLE webpages_data");
	};
	
 # Create a table
 $dbh->do( "CREATE TABLE webpages_data (id INTEGER PRIMARY KEY, page, text, bigr)");
 
 my $a = 1;
 my $s = scalar(@links);
 
 while($s >= $a) {
 	 	 	
 	
 	$dbh->do( "INSERT INTO webpages_data VALUES('$a', '$_', '$text[$v]', NULL)");
  		     
 	$a++;
 	$v++;			
 	}
 
 
 # Disconnect when finished using the database
 $dbh->disconnect();