sub insertAttribute {
   my ($serverID, $featureID, $value) = @_;
   my $sqlINS = q{ INSERT INTO attribute VALUES (?, ?, ?) };

   $dbh->do ( $sqlINS,
              undef,
              $serverID,
              $featureID,
              $value );
}

##</code><code>##

__SIG__
use B;
printf "You are here %08x\n", unpack "L!", unpack "P4", pack
  "L!", B::svref_2object(sub{})->OUTSIDE;