my @commands = (
	{ name=>'genhealth', arg=>'/sys/general', file=>'genhealthfile' },
	{ name=>'bat',       arg=>'/env/bat',     file=>'batteries'     },
	# ...
	{ name=>'ssd',       arg=>'/env/ssd',     file=>'ssd_file'      },
);
for my $cmd (@commands) {
	print "### Working on ", $cmd->{name}, "\n";
	run3 ['uemcli', '-d', $vnxe_ip, '-u', $username, '-p', $password,
		$cmd->{arg}, 'show', '-detail'], undef, \my $out;
	my $str = decode('UTF-16', $out, Encode::FB_CROAK);
	my $filename = $cmd->{file}.'.txt';
	open (my $fh, '>', $filename) or die "$filename: $!";
	print $fh $str;
	close $fh;
}