$time =~ s/\..*//;