my $cs = new Net::Telnet::Cisco (
  Errmode => "return", 
  Timeout => 100,
  Prompt => '/>/'
);
$cs->open("$ubr");
$cs->login( $userid, $password);
$cs->cmd( 'terminal length 0');

@lines = $cs->cmd( "show cable modem | inc $mac" );

foreach my $line (@lines) {
  chomp $line;
  $line =~ s/ +/ /g;
  my @values=split(/ /,$line);
  push(@scmresults,@values);
}