my $sql = <<'EOSQL';
 
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}

EOSQL