Select Code to Download

my $sql = "
    select * from (
...
print "Debug>  sql is:\n", "-" x 70, $sql, "\n", "-" x 70, "\n";
my $st = $dbh->prepare($sql);
$st->execute();

my $like_string = "like upper('%$mainsearch%') ";
...
        select * from qatest $like_clause order by ser_app_name ASC
    ) where rownum < 31
";