perl 中的对象 bless

[root@dr-mysql01 ~]# cat aa.pl 
use  LWP::UserAgent;
use Data::Dumper; 
my $ua = LWP::UserAgent->new;
$phone=$ARGV[0];
$cc=$ARGV[1];
$ua->timeout(10);
$ua->env_proxy;
$ua->agent("Mozilla/8.0");
$host = "xxxxxxxx";
my $response = $ua->get($host);

 my $var= Dumper($ua);
print $var;
print "\n";


 my $var= Dumper($response);
print $var;
print "\n";
  $ua->default_headers;
if ($response->is_success) {
 print $response->decoded_content;  # or whatever
}
else {
 die $response->status_line;
}
[root@dr-mysql01 ~]# set -o vi
[root@dr-mysql01 ~]# perl aa.pl  180722722237 test
$VAR1 = bless( {
                 'max_redirect' => 7,
                 'protocols_forbidden' => undef,
                 'show_progress' => undef,
                 'handlers' => {
                                 'response_head