my $sec = 0;
my $min = 0; 
my $hr  = 0;