#!/usr/bin/perl

use strict;
use warnings;

use api::Telnet;
use Data::Dumper;

my $host_prompt = '/[\$%#>] $/';
my $owner = &open_pty (
				user_name     =>  "root",
				user_pswd     =>  "a",
 				ip_addr		  =>  "127.0.0.1",
				prompt        =>  $host_prompt,
				log_file      =>  'Log/Owner',
				dump_log      => 'Log/dump_log',
#				input_log      => 'Log/input_log',
			);

my @output = $owner->cmd ( String => "date", Prompt => $host_prompt );
print "Output is @output\n";