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

# This will print:
# that,line2
print join(",",%line),"\n";