#!/usr/bin/perl 

use cisco;

$cis = new cisco(Host=>"somerouter.domain.com", # router hostname
              Username=>"bob", # username (bob is good )
              Password=>"bleh", # hehe
              Prompt=>"router>", # this is a common prompt
              Timeout=>10); # prolly wont need to touch this
         
$r = $cis->connect;
if (!$r) {
  print $cis->errorstr(),"\n";
  exit(-1);
}
foreach($cis->send("show bridge")) {
  print $_;
}