use lib $ENV{'SECANAROOT'}."/lib";
use SECANA::TimeString;
$SECANA::TimeString::FORMAT = '%a %Y-%m-%d %H:%M:%S %z';
print SECANA::TimeString::now().'\n';

20080910102010