use LWP::Debug qw(+);
use Aspect;
my $pcut = call qr/LWP::Protocol::http::SocketMethods::sysread/;
before { $ts = [gettimeofday] } $pcut;
after { printf ">>%.5f\n" , tv_interval($ts) } $pcut;