当LWP :: UserAgent连接到代理时，是否可以添加一些调试输出？

Question

我有一个非常简单的Perl脚本示例

$ cat proxy.pl
use strict;
use warnings;
use LWP::UserAgent ();

my $ua = LWP::UserAgent->new;
$ua->timeout(10);
$ua->show_progress(1);
$ua->proxy([
    [ 'http' ] => 'http://142.93.46.194:3128/',
]);
$ua->get('http://example.com');

将在以下输出中打印

$ perl proxy.pl 
** GET http://example.com ==> 200 OK

是否有任何可立即使用的模块，可以在调试输出中再添加一个显示代理服务器连接状态的字符串？