The error is 
Cant find the method Deliv

##</code><code>##

push @delivs, new Deliv('deliverable ' . $_,$ini);

##</code><code>##

package Deliv;
use vars qw($AUTOLOAD);

sub new {
    my $class = shift;
    my $self = bless {}, $class;
    my ($dev_sec,$cfg) = @_;

    $self->{source} = $cfg->val($dev_sec,'source');
    $self->{related_job}  = $cfg->val($dev_sec,'related_job');
    return $self;

}