my $telnet = $cs -> print('set pass')
      or die "Error giving \"set pass\" command.\n";
    ($before,$match) = $telnet -> waitfor('Enter old password:')
      or die "Error getting \"Enter old password\" prompt\n";