Select Code to Download

sub upack_with_shift {
    my $foo = shift;
...
    # generates a warning if warnings on.  "Use of uninitialized value
+ in join at line mumble" 

}

#Accessor
sub Name {
...

  return $self->{NAME};
}