#!/usr/local/bin/tclsh8.6
package require sqlite3

set dbfile ./paste.db
sqlite3 db $dbfile

set expire [clock seconds]
db eval {delete from paste where expire <= :expire}