use strict; use vars qw(%line $time); use mod1 qw(%line); use mod2 qw(%line $time);