my $ssh = Net::OpenSSH->new(
   host        => $hostname,
   user        => $Username,
   password    => $Password,
   master_opts => \@ssh_opts,
   timeout => 10,
  )
|| die("Cannot connect to $hostname");

##</code><code>##

Your password will expire in XXX days
Press any key to continue.

##</code><code>##

    elsif ( $$bout =~ s/(.*)Press Enter to Continue//is ) {
       print STDERR "$1";
       print $mpty "\r\n";
    }