$sql_stmt = qq~
        delete from session
        where (((to_days(now()) * $day_minute) + (hour(now()) * $hour_
+minute) + minute(now())) -
        ((to_days(last_req) * $day_minute) + (hour(last_req) * $hour_m
+inute) + minute(last_req))) > $session_limit~;
        $sth = $dbh->prepare($sql_stmt);
        $sth->execute() or &error("1SQL&Couldn't execute statement: $D
+BI::errstr");

        $sth->finish();
[download]

I read from CPAN, but I am confuse how to implement it. Can some one show how to do that with my code.