Select Code to Download

use warnings;
use strict;
...
is $string, qq{parameter="TO_DATE('1900-01-01','YYYY-MM-DD')"\n};

done_testing;