nicer output

diff --git a/torrent/rtorrent-dump.pl b/torrent/rtorrent-dump.pl
index ff1a071..f530454 100755 (executable)
--- a/torrent/rtorrent-dump.pl
+++ b/torrent/rtorrent-dump.pl
@@ -8,9 +8,9 @@ use Data::Dump qw(dump);
 my $h = new RTPG(url=> $ENV{SOCKET} || '/rsync1/s1/torrent/socket');
 
 if ( @ARGV ) {
-       print "# ",dump(@ARGV);
+       print "# ",dump(@ARGV), " -> ";
        my $out = $h->rpc_command(@ARGV);
-       print dump($out);
+       print dump($out),$/;
        exit;
 }