---
layout: default
navsection: sdk
navmenu: Perl
title: "Examples"
...
{% comment %}
Copyright (C) The Arvados Authors. All rights reserved.

SPDX-License-Identifier: CC-BY-SA-3.0
{% endcomment %}

h2. Initialize SDK

Set up an API client user agent:

{% codeblock as perl %}
use Arvados;
my $arv = Arvados->new('apiVersion' => 'v1');
{% endcodeblock %}

The SDK retrieves the list of API methods from the server at run time. Therefore, the set of available methods is determined by the server version rather than the SDK version.

h2. create

Create an object:

{% codeblock as perl %}
my $test_link = $arv->{'links'}->{'create'}->execute('link' => { 'link_class' => 'test', 'name' => 'test' });
{% endcodeblock %}

h2. delete

{% codeblock as perl %}
my $some_user = $arv->{'collections'}->{'get'}->execute('uuid' => $collection_uuid);
{% endcodeblock %}

h2. get

Retrieve an object by ID:

{% codeblock as perl %}
my $some_user = $arv->{'users'}->{'get'}->execute('uuid' => $current_user_uuid);
{% endcodeblock %}

Get the UUID of an object that was retrieved using the SDK:

{% codeblock as perl %}
my $current_user_uuid = $current_user->{'uuid'}
{% endcodeblock %}

h2. list

Get a list of objects:

{% codeblock as perl %}
my $repos = $arv->{'repositories'}->{'list'}->execute;
print ("UUID of first repo returned is ", $repos->{'items'}->[0], "\n");
{% endcodeblock %}

h2. update

Update an object:

{% codeblock as perl %}
my $test_link = $arv->{'links'}->{'update'}->execute(
        'uuid' => $test_link->{'uuid'},
        'link' => { 'properties' => { 'foo' => 'bar' } });
{% endcodeblock %}

h2. Get current user

Get the User object for the current user:

{% codeblock as perl %}
my $current_user = $arv->{'users'}->{'current'}->execute;
{% endcodeblock %}