my $time = qx(time /T);