sub deleteData
{
$days = <how to have 10 here??>;

my $sth = $dbh->prepare("DELETE FROM TEST_TABLE
                    WHERE date = trunc(sysdate) - ?");
$sth->execute( $days ) or die $DBI::errstr;
print "Number of rows deleted :" + $sth->rows;
$sth->finish();
$dbh->commit or die $DBI::errstr;
}