Select Code to Download

package mod1;
use strict;
...
  %line = (this => "line");
}
1;

package mod2;
use strict;
...
   $time = time();
}
1;

use strict;
use vars qw(%line $time);
...
# This will print:
# that,line2
print join(",",%line),"\n";