Select Code to Download

my $publisher = q{O'Reilly};

my $title         =  q[Perl Best Practices];
my $publisher     =  q[O'Reilly];
my $end_of_block  =  q[}];
my $closing_delim =  q['}];
my $citation      = qq[$title ($publisher)];

%default_service_record  = (
    name   => '<unknown>',
...
    unit   => ['Training platoon'],
    duty   => ['Basic training'],
);

%default_service_record  = (
    'name',   '<unknown>',
...
    'unit',   ['Training platoon'],
    'duty',   ['Basic training'],
);