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;
}

##</code><code>##

my $days;

sub deleteData
{
my $rc;

if (@ARGV)
   {
     $days = $ARGV[0];
     $logfile-> logmessage ("Days in sub $days ...)
   }
    
  $days = shift (@ARGV);

 my $SQL = qq{ DELETE from TEST_TABLE
               WHERE trunc(date) < trunc(sysdate) - $days
             };
 
    $sth->prepareCursor( $SQL ) or die $DBI::errstr;
          print "Number of rows deleted :" + $sth->rows;
    $sth->execute();
           $rc++
    $sth->finish()
}