...
        my @areas = Areas->search( areaname => undef );
        my $area = pop @areas;

        print " Area in DB, id: " . $area->id;
        print " areaname: " . $area->areaname;
...

##</code><code>##

"processEmpFile.pl" 291 lines, 6885 characters 
gonzo:/dbsetup/empDataLoad.04: ./processEmpFile.pl
Can't call method "id" on an undefined value at ./processEmpFile.pl line 72, <GEN0> chunk 1.