query rtorrent status over socket

diff --git a/torrent/rtorrent-dump.pl b/torrent/rtorrent-dump.pl
new file mode 100755 (executable)
index 0000000..79eb1f3
--- /dev/null
+++ b/torrent/rtorrent-dump.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+use warnings;
+use strict;
+
+use RTPG;
+use Data::Dump qw(dump);
+
+my $h = new RTPG(url=>'/tmp/rtorrent.socket');
+
+# arrayref and error (standard version)
+my ($tlist, $error)=$h->torrents_list;
+print dump( $tlist, $error );