Perl 通过sqlplus 执行Spool语句

====>a.sql
spool on
set pages 50000
set lines 200    
set trims on
set colsep ','
set heading off
set termout off
set feedback off

SPOOL t2.csv

select  /*+PARALLEL(20)*/ 
BROAD_RATE_ATTR_ID,
'20230707','duanhw'
from T_DIM_BROAD_RATE;

SPOOL OFF
exit
====>


my $sql_script = 'a.sql';                                                                     
system("sqlplus user/passwd\@DB3 \@${sql_script} \\ ");