$sec+=$1 while s/(\d+)s//g;
die "Interval parse error; left \"$_\", parsed: $interval" if $_ ne "";
$sth=$DBI->prepare(($print ? "select id" : "delete")
$sec+=$1 while s/(\d+)s//g;
die "Interval parse error; left \"$_\", parsed: $interval" if $_ ne "";
$sth=$DBI->prepare(($print ? "select id" : "delete")