use strict; use Exporter(); use vars qw(%line $time);