$^T = time(); my $fileage = -M $filename;