($prematch, $match) = $t->waitfor(Match => "/Welcome/");
unless (defined $match) {
  print $t->errmsg;
}