use strict;
use warnings;
use diagnostics;
use slave;

$slave::typo = "Hello world";
print "$slave::typo\n";

##</code><code>##

use strict;
use warnings;
use diagnostics;

package slave;
1;