sub do_something() { return 1; }

##</code><code>##

package Utils;

sub new {
    my $class = shift;
    my @args = @_;
    my $self = {};
    $self->{toolset} = new Toolset;
    return bless $self, $class
}

sub read() {
    my $self = shift;
    $self->{low_level_stuff} = new Functions::LowLevel;
}

sub doSomeOperation() {
    return $self-{low_level_stuff}->read();
}

package Toolset

sub new {}

sub read {}

package Toolset::LowLevel

@Toolset::LowLevel::ISA = qw( Toolset );

sub new {}

sub read {
    my $self = shift;
    return $self->readLine();
}