Select Code to Download

sub deleteData
{
...
$sth->finish();
$dbh->commit or die $DBI::errstr;
}

my $days;

...
           $rc++
    $sth->finish()
}