Select Code to Download

bless $self,"NCS::PupptDB::Data";
                     ^^ missing "e"

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