Select Code to Download

sub new {
   my $class = shift;
...
   };
   return bless $self, $class;
}

# grab the pk if found, remove it and store for later use
# and remove it's column from the table
...
   splice(@{$self->{'fields_arry'}},$self->{'pk_index'},1)
      if defined $self->{'pk_index'};
}

sub get_attrib { shift->{shift} }