sub ssh_to_ip_simple {

	my $timeout = 10;
	$Net::OpenSSH::debug = 0;

	#open command file and execute each line
	chomp ($user, $password, $host_ip);
	$ssh = Net::OpenSSH->new($host_ip, user => $user, password => $password);
	&parse_commands;
	foreach (@cmd_array) {
		print "Attempting to execute command $_ on host $host_ip";
                $ssh->capture($_);
		print @output."\n";
	}
}

sub parse_commands {
	#Open cmd file specified
	#Parse file and pass each line to the $ssh->system value
	if (defined $cmdfile) {} else {(print "\nCommand file not found.\n  Specify command file with -c option\n") && die}
	print "\nOpening command file $cmdfile\n";
	open_cmd {};
	for $line_cmd (<CMDFILE>) {
		chomp ($line_cmd);
		print "Processing command $line_cmd from file $cmdfile\n\n\n";
		#my @output = $ssh->capture({timeout => 10 }, $line_cmd);
		#$ssh->error and warn "Operation didn't complete successfully: \n".$ssh->error;
		push (@cmd_array, $line_cmd);
	}
	foreach (@cmd_array) {print "Parse_commands command is ".$_."\n"}
	close CMDFILE;
}