$telnet_box->open("$host") || 
        die "Failed to connect to $host $!";
    $telnet_box->login($user_name, $password) ||
        die "Failed to log onto $host. The username or password is wrong$!";   
@$lines = $telnet_box->cmd("perl expect_execute.pl");
 
##</code><code>##

$exp_inst->log_file("$templog", "w");
        $exp_inst->expect($timeout,
            [ '-re' , $prompt, 
                sub {
                    my $fh = shift;
                    $fh->send("$command\n");
                }
            ],
            [ timeout => 
                sub {
                    my_die "unable to get the prompt $prompt";
                }
            ]
        );

##</code><code>##

prompt> command
 
 
More ...
 
##</code><code>##

prompt> command
xyz
yy
prompt>