package mybase;
use threads;
use threads::shared;

my $mode : shared;
1;