Select Code to Download

sub worker{
    my $self = shift;
...
    }

}

sub parent {
    my $self = shift;
...
    # do something with status
    #...
}