Select Code to Download

use strict;
use warnings;
...
my $time = time();

1;

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