Select Code to Download

package Filecontrol;
@ISA = qw(Exporter);
...
}
#.... and on and on.....

sub html_tree {
    defined(my $self = shift) or die "no self";
...
    #do stuff...
        }
    }