Select Code to Download

#! /usr/bin/perl

use strict;
...
  my $hashref = $sthcolinfo->fetchrow_hashref();
  return $hashref->{TYPE_NAME};
}

#! /usr/bin/perl

...

my $col = 'Testcol';
DbiTest->new($col);

package DbiTest;

...
}

1;

Usage: SQL_LONGVARCHAR() at DbiTest line 21