my $diff=$^T-time();