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