my $t = time;
sub print_t { print("$t\n"); }
print_t();
print("$t\n");