use strict; use warnings; use diagnostics; use slave; $slave::typo = "Hello world"; print "$slave::typo\n";