$logger->info("create zone on the switch $ip using zonecreate"); ($out,$err) = $ssh->capture2("zonecreate \"test1\", \"20:00:00:11:0d:34:56:00\""); $ssh->error and die "remote find command failed: $!" . $ssh->error; ($out,$err)=$ssh->capture2("zoneshow"); ($out,$err) = $ssh->capture2("cfgadd \"FC_DVT\", \"test1\""); $ssh->error and die "remote find command failed: $!" . $ssh->error; ($out,$err) = $ssh->capture2("{stdin_data =>yes},cfgsave"); $ssh->error and die "remote find command failed: $!" . $ssh->error;