$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");