use strict; use warnings; use Mytest; print $Mytest::var . "\n";