bless $self;

 ## now, set up XML::Parser;
 $parser->parsefile ("/path/to/some/file/$id.xml");
 return $self;

##</code><code>##

    bless $self, $class;

    $self->init();

    return $self;

##</code><code>##

sub init {
    my $self = shift;
    my $id = $self->{id};

    # Parse the "$id.xml" file here
    # Get the $property value

    $self->{property} = $property;

    return;
}