Select Code to Download

package KrbKey;
use base 'Class::DBI';
...
} else {
        print join $/, map({$_->id} KrbKey->retrieve_all), '';
}

$ getpw
Failure while doing '' with '_filter_retrieve_all in KrbKey'
Ima::DBI->connect(dbname=krbkey;host=dbserver.sub.dom) failed: Kerbero
+s 5 authentication failed at /opt/network/bin/getpw line 17
 at /opt/network/bin/getpw line 17

$ kinit
Password for me@SUB.DOM: 
...
snmp.ro
snmp.rw