Select Code to Download

# open the file and quit if we can't *
open(FH,'foo.txt') or die $!;
...

# exit
exit;

if (exists $self->{'pk'}) {
  $self->{'pk_index'} = delete $self->{'fields_hash'}->{$self->{'pk'}}
+;
  splice(@{$self->{'fields_arry'}},$self->{'pk_index'},1) if defined $
+self->{'pk_index'};
}