Select Code to Download

my $sql = qq {
    select SID,SERIAL,USERNAME,STATUS,SCHEMANAME,OSUSER,
    PROCESS,MACHINE,TERMINAL,PROGRAM,TYPE,MODULE,
    to_char(LOGON_TIME,'DD-MON-YY HH24:MI:SS')"LOGON_TIME",
    STATE,SERVICE_NAME from v\$session order by LOGON_TIME DESC};

my $sql = q {
    select SID,SERIAL,USERNAME,STATUS,SCHEMANAME,OSUSER,
    PROCESS,MACHINE,TERMINAL,PROGRAM,TYPE,MODULE,
    to_char(LOGON_TIME,'DD-MON-YY HH24:MI:SS')"LOGON_TIME",
    STATE,SERVICE_NAME from v$session order by LOGON_TIME DESC};