Attempt to trim down memory usage per 'trivial' client. IO::Socket and SSL consume most of the rest

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9241 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd

perl-xCAT/xCAT/Client.pm

@@ -34,10 +34,9 @@ unless ($inet6support) {
 }
 
 
-use XML::Simple;
+use XML::Simple; #smaller than libxml....
 $XML::Simple::PREFERRED_PARSER='XML::Parser';
-require Data::Dumper;
-use Storable qw(dclone);
+#require Data::Dumper;
 my $xcathost='localhost:3001';
 my $plugins_dir;
 my %resps;
@@ -792,8 +791,9 @@ sub do_request {
 ###################################
 sub build_response {
   my $rsp = shift;
+  require Storable;
   foreach (keys %$rsp) {
-    my $subresp = dclone($rsp->{$_});
+    my $subresp = Storable::dclone($rsp->{$_});
     push (@{$Main::resps->{$_}}, @{$subresp});
   }
 }