#!/usr/bin/perl
package derived;
use strict;
use Exporter;
use threads;
use threads::shared;
use mybase;
use vars qw(@ISA);
@ISA = ('mybase');

sub foo {
lock($mybase::mode);
$mybase::mode = 1;
}

foo();
1;