sub new
{
    my ($class) = @_;
    my $this = [];
    bless ($this, $class);
    
    $this->[PARENT] = undef;    
    $this->[PROGRESS] = 0;
    
    return $this;
}