sub new {
    my ($class, $name, $rank, $c_num) = @_;
    $name ||= '';
    $rank ||= '';
    $c_num ||= '';

    bless { name => '',
            rank => '',
            cereal_number => '',
          }, $class;
}