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