$exp_inst->expect($timeout, ['-re' , $prompt, sub { my $fh = shift; $fh->send("$command\n"); } ] , [ timeout => sub { my_die "unable to get the prompt $prompt"; } ); ], sleep (2); $exp_inst->expect($timeout, [ qr'.*' , sub { $exp_inst->send("\n"); } ] , [ timeout => sub { print "Notting happening"; } ] );