I am calling a sqlplus script from within perl and everytime I run it I get duplicate results in the output for instance

I get
trade datet numb
______________
1 38 22

trade datet numb
______________
1 38 22


Here is my sql script
SET TERMOUT OFF
SPOOL PENDING_TRADES.TXT
SET serveroutput ON

COLUMN Count FORMAT A15

select TO_CHAR(count(*)) as Count
from Trade
;
SET LINESIZE 200
COLUMN TRADE FORMAT A15
COLUMN datet FORMAT A15
COLUMN numb FORMAT A25

select trade, datet, numb from GTTDBO.TRADE ;
/
SPOOL OFF
SET serveroutput OFF

EXIT

Any advice. Its been driving me crazy