#!/usr/bin/perl -w
use DBI qw(:sql_types);

my ($SID,$SERIAL,$USERNAME,$STATUS,$SCHEMANAME,$OSUSER,
$PROCESS,$MACHINE,$TERMINAL,$PROGRAM,$TYPE,$MODULE,
$LOGON_TIME,$STATE,$SERVICE_NAME);

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 $dbh = DBI->connect($parm,$user,$password, { RaiseError => 1, AutoCommit => 0 });

$sth = $dbh->prepare($sql) or die "Couldn't prepare statement: " . $dbh->errstr;

$sth->execute() or die "Couldn't execute statement: " . $dbh->errstr;

print "@row\n";