my $host_prompt = '/[\$%#>] $/'; my $util_prompt = '/(\s)*Command: (\s)*/i'; my $owner = &open_pty ( user_name => "", user_pswd => "", ip_addr => "127.0.0.1", prompt => $host_prompt, log_file => 'Log/Owner' ); $owner->cmd ( String => "cd ", Prompt => $host_prompt ); $owner->cmd ( String => "", Prompt => $util_prompt ); $owner->cmd ( String => "", Prompt => $util_prompt );