diff --git a/xCAT-server/lib/perl/xCAT/IPMI.pm b/xCAT-server/lib/perl/xCAT/IPMI.pm
index a8137dc95..805339e2e 100644
--- a/xCAT-server/lib/perl/xCAT/IPMI.pm
+++ b/xCAT-server/lib/perl/xCAT/IPMI.pm
@@ -16,7 +16,7 @@ use warnings "all";
 
 use IO::Socket::INET;
 use IO::Select;
-use Data::Dumper;
+#use Data::Dumper;
 use Digest::MD5 qw/md5/;
 my $pendingpackets=0;
 my $maxpending; #determined dynamically based on rcvbuf detection
diff --git a/xCAT-server/lib/perl/xCAT/Postage.pm b/xCAT-server/lib/perl/xCAT/Postage.pm
index c4bf69019..44f845640 100644
--- a/xCAT-server/lib/perl/xCAT/Postage.pm
+++ b/xCAT-server/lib/perl/xCAT/Postage.pm
@@ -14,7 +14,7 @@ use xCAT::MsgUtils;
 use xCAT::NodeRange;
 use xCAT::Utils;
 use xCAT::SvrUtils;
-use Data::Dumper;
+#use Data::Dumper;
 use File::Basename;
 use Socket;
 use strict;
diff --git a/xCAT-server/lib/perl/xCAT/Template.pm b/xCAT-server/lib/perl/xCAT/Template.pm
index 698e0296e..5fda49552 100644
--- a/xCAT-server/lib/perl/xCAT/Template.pm
+++ b/xCAT-server/lib/perl/xCAT/Template.pm
@@ -6,7 +6,7 @@ use strict;
 use xCAT::Table;
 use File::Basename;
 use File::Path;
-use Data::Dumper;
+#use Data::Dumper;
 use Sys::Syslog;
 use xCAT::ADUtils; #to allow setting of one-time machine passwords
 my $netdnssupport = eval {