Select Code to Download

#! /usr/bin/perl

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