use strict; use Slave qw< $type >; print $typo;