HP P6000 Replication Solutions Manager CLI Reference (T3680-96071, June 2012)

#print("$line\n");
}
return $resp;
}
sub usage {
print "\n\n\*************************************************************************\n\n";
print "Use: clui_ssl_sample.pl <host> <port> <username> <password> <command>\n\n";
print " host - ip or name\n";
print " port - the port the clui is on\n";
print " username - admin user name\n";
print " password - admin password\n";
print " command - The command to send to the server (in quotes)\n\n";
print "*************************************************************************\n";
} # end sub usage
Sample SSL client using Perl 51