Like I said before, at the very least, this is wrong:

my $adt_h_date = "'".$org_adt_h_date."'";
[download]

It probably should be

my $adt_h_date = $org_adt_h_date;
[download]