Select Code to Download

#! /usr/bin/env perl

...
sub gtype {
  ref shift;
}

var is a HASH with 5 keys
        the keys are 'age', 'fname', 'kids', 'last_name', 'occupation'
...
                key 'title' is a SCALAR
                key 'years_on_job' is a SCALAR
        key 'last_name' is a SCALAR

fname => scalar,
last_name => scalar,
kids => aoh => { first_name => scalar, middle_name => scalar, age => s
+calar, vaccinated => scalar},
occupation => hoh => {title => scalar, years_on_job => scalar},
age => scalar