$^T = time( );

and subsequently use that variable in the code, or you can use $r->request_time, which stores the exact request's start time and saves the extra system call to time( ).

13.7. Using the Perl stat( ) Call's Cached Results		13.9. Printing Unmodified Files