print Dumper $re->directoryCategory();

# which gives

$VAR1 = bless( {
                 'fullViewableName' => 'foo',
                 'specialEncoding' => ''
               }, 'DirectoryCategory' );


##</code><code>##

        foreach my $dc ( %{ $re->directoryCategory() } ) {
             print $dc->fullViewableName()."\n" ;

        }

##</code><code>##

use warnings;
use strict;
use Data::Dumper;
use Net::Google;

use constant LOCAL_GOOGLE_KEY =>"***********************";

my $service = Net::Google->new( key => LOCAL_GOOGLE_KEY );
my $session = $service->search();

$session->query(qw (beadwork ));
$session->starts_at(5);
$session->max_results(15);

my $responses = $session->response();
#print Dumper $responses ;

foreach my $r ( @{$responses} ) {

    print sprintf( "%s : %s\n",
        $r->searchQuery(), $r->estimatedTotalResultsCount() );

    foreach my $re ( @{ $r->resultElements() } ) {
        print $re->URL() . "\n";

         print Dumper $re->directoryCategory();
        foreach my $dc ( %{ $re->directoryCategory() } ) {
             print $dc->fullViewableName()."\n";

        }
    }

}