#!/usr/bin/perl
use warnings;
use strict;

use RTPG;
use Data::Dump qw(dump);

my $h = new RTPG(url=>'/srv/cloudstore/var/torrent/socket');

# arrayref and error (standard version)
my ($tlist, $error)=$h->torrents_list;
print dump( $tlist, $error );
