Select Code to Download

my $aref_cmd1= ['uemcli','-d',$vnxe_ip,'-u',$username,'-p',$password, 
+'/sys/general','show','-detail'];
my $aref_cmd2 = ['uemcli', '-d', $vnxe_ip, '-u', $username, '-p', $pas
+sword, '/env/bat', 'show', '-detail'];
my $aref_cmd3 = ['uemcli', '-d', $vnxe_ip, '-u', $username, '-p', $pas
+sword, '/env/ps', 'show', '-detail'];
...
my $str2 = decode('UTF-16', $out2, Encode::FB_CROAK);
print $fh2 $str2;