#44 [Perl]Return value of DATA_TYPE isn't correct

[Jira Trac]

Test Build:CUBRID 2008 R4.0 (8.4.0.2019) (64bit release build for linux_gnu)
OS: Linux 64
Description: Return value of DATA_TYPE isn't correct

Repro Steps:
perl column_01.pl

Actual result:
{noformat}
The return value of DATA_TYPE is string type.
such as:
DATA_TYPE: DATE
TYPE_NAME: DATE
TABLE_NAME: tdb
COLUMN_NAME: dt
DATA_TYPE: DATETIME
TYPE_NAME: DATETIME
TABLE_NAME: tdb
COLUMN_NAME: dtt

{noformat}

Expect result:
{noformat}
The return value of DATA_TYPE is numerical type which indicates the data type of the corresponding DATA_TYPE.
such as:
DATA_TYPE: 91
TYPE_NAME: DATE
TABLE_NAME: tb
COLUMN_NAME: dt
DATA_TYPE: 93
TYPE_NAME: DATETIME
TABLE_NAME: tb
COLUMN_NAME: dtt

{noformat}