#!/usr/bin/perl

use DBI;

my $db_handler = DBI->connect("DBI:mysql:test:localhost","mysql","");

$sql="delete from Schedule where ScdTo < NOW()";

$statement_handler=$db_handler->prepare($sql);

 if (!defined $statement_handler)
  {
    die "Cannot connect to database--exiting.\n";
  }
else
  {
    $statement_handler->execute;
  }

$statement_handler->finish;
$db_handler->disconnect;