Select Code to Download

sub parse {
  my $self = shift;
...
  
  $result or croak $self->{ErrorMessage};
}

#!C:/Perl

...
     print $elt->text;
     $t->purge;
   }