my $x; BEGIN { $x = time }