Select Code to Download

use strict;
use warnings;
...
DBI->quote(CGI->param());

#DBI::quote(CGI->param());

$VAR1 = [
          'DBI',
...
          'b',
          'c'
        ];