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()
}