add simple test script

diff --git a/test.pl b/test.pl
new file mode 100755 (executable)
index 0000000..e194953
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl 
+
+use lib '.';
+use strict;
+use warnings;
+use JSON;
+
+use Data::Dumper;
+
+use PVE::RADOS;
+
+print "TEST1\n";
+my $rados = PVE::RADOS::new();
+print "TEST2\n";
+
+my $res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
+print Dumper($res);
+$res = $rados->mon_command({ prefix => 'mon dump', format => 'json' });
+print Dumper($res);
+
+my $stat = $rados->cluster_stat;
+print Dumper($stat);