use strict; use warnings; use Mytest; print $var;