Select Code to Download

package Banker;
no strict;
...
use base qw/Greedy SelfAggrandising MorallyBereft/;

1;

while (my ($banker, $rubbish) = each %bankers) {
    delete $bankers{$banker};
}