use WebService::Gravatar;

    # Create a new instance of WebService::Gravatar
    my $grav = WebService::Gravatar->new(email => '[email protected]',
                                         apikey => 'your_API_key');

    # Get a list of addresses
    my $addresses = $grav->addresses;

    if (defined $addresses) {
        # Print the userimage URL for each e-mail address
        foreach my $email (keys %$addresses) {
            print $addresses->{$email}->{'userimage_url'} . "\n";
        }
    }
    else {
        # We have a problem
        print STDERR "Error: " . $grav->errstr . "\n";
    }

    # Read image file data
    my $data;
    {
    	local $/ = undef;
        open(F, "< my_pretty_face.png");
        $data = <F>;
        close(F);
    }
    
    # Save the image as a new userimage
    $grav->save_data(data => $data, rating => 0);

    ...

    my $grav = WebService::Gravatar->new(email => '[email protected]',
                                         apikey => 'your_API_key');

    $result = $grav->exists(hashes => ['e52beb5a6966554a02a56072cafebabe
+',
        '62345cdd79773f62a87fcbc6abadbabe'])

    $result = {
        'e52beb5a6966554a02a56072cafebabe' => '1',
        '62345cdd79773f62a87fcbc6abadbabe' => '0'
    };

    $addresses = $grav->addresses;

    $addresses = {
        '[email protected]' => {
            'rating' => '0',
            'userimage' => '8bfc8da2562a53ddd7e630a68badf00d',
            'userimage_url' => 'http://en.gravatar.com/userimage/123456/
+8bfc8da2562a53ddd7e630a68badf00d.jpg'
        },
        '[email protected]' => {
            'rating' => '1',
            'userimage' => '90f269fe7b67d0ce49f96427deadbabe',
            'userimage_url' => 'http://en.gravatar.com/userimage/123456/
+90f269fe7b67d0ce49f96427deadbabe.jpg'
        }
    };

    $userimages = $grav->userimages;

    $userimages = {
    	'8bfc8da2562a53ddd7e630a68badf00d' => [
            '0',
            'http://en.gravatar.com/userimage/123456/8bfc8da2562a53ddd7e
+630a68badf00d.jpg'
        ],
        '90f269fe7b67d0ce49f96427deadbabe' => [
            '1',
            'http://en.gravatar.com/userimage/123456/90f269fe7b67d0ce49f
+96427deadbabe.jpg'
        ]
    };

    $grav->save_data(data => $data, rating => 1);

    $grav->save_url(url => 'http://some.domain.com/image.png', rating =>
+ 0);

    $grav->use_userimage(userimage => '9116aa83a568563290a681df61c0ffee'
+.
        addresses => ['[email protected]', '[email protected]']);

    $result = $grav->remove_image(addresses => ['[email protected]',
        '[email protected]'])
    

    result = {
        '[email protected]' => 1,
        '[email protected]' => 0
    };

    $grav->delete_userimage(userimage => '292ed56ce849657d47b04105deadbe
+ef');

    $result = $grav->test(param => 1);

    $err_code = $grav->err;

    $err_description = $grav->errstr;

    perldoc WebService::Gravatar