perl -e 'use DBI;$h = DBI->connect("dbi:Oracle:XE","xxx","yyy");
$s = $h->prepare("select sys_extract_utc(systimestamp) from dual");
$s->execute;
DBI::dump_results($s);
$h->do("alter session set nls_timestamp_format=\"YYYYMMDD HH24:MI:SS\"");
$s = $h->prepare("select sys_extract_utc(systimestamp) from dual");
$s->execute;DBI::dump_results($s);'