Select Code to Download

 bless $self;

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

    bless $self, $class;

    $self->init();

    return $self;

sub init {
    my $self = shift;
...

    return;
}