main::(a.pl:12):        my $time = time();
  DB<1> n
main::(a.pl:14):        1;
  DB<1> x $time
0  5
  DB<2> x time()
0  5