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

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