diff --git a/C4/SIP/interactive_members_dump.pl b/C4/SIP/interactive_members_dump.pl
new file mode 100755
index 0000000000..8df6ea4f40
--- /dev/null
+++ b/C4/SIP/interactive_members_dump.pl
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+#
+
+use warnings;
+use strict;
+
+use C4::Members;
+use Data::Dumper;
+
+while (1) {
+	print "Enter patron barcode: ";
+	my $in = <>;
+	defined($in) or last;
+	chomp($in);
+	last unless $in;
+	print "GetMember : \n",  Dumper(GetMember($in, 'cardnumber'));
+	my ($member) = GetMemberDetails(undef, $in);
+	my $flags = $member->{flags};
+	print "GetMemberDetails (member) : \n", Dumper($member);
+	print "GetMemberDetails ( flags) : \n", Dumper($flags);
+	print "=" x 10, "\n";
+}
diff --git a/C4/SIP/interactive_patron_check_password.pl b/C4/SIP/interactive_patron_check_password.pl
new file mode 100755
index 0000000000..a56701c315
--- /dev/null
+++ b/C4/SIP/interactive_patron_check_password.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+#
+
+use warnings;
+use strict;
+
+use ILS::Patron;
+use Sip qw(sipbool);
+use Data::Dumper;
+
+while (1) {
+	print "Enter patron barcode: ";
+	my $in = <>;
+	defined($in) or last;
+	chomp($in);
+	last unless $in;
+	my $patron = ILS::Patron->new($in);
+	print Dumper($patron);
+	$patron or next;
+	print "Enter patron password: ";
+	$in = <>;
+	chomp($in);
+	print "Raw password is: " . $patron->{password}, "\n"; 
+	print " check_password: " . $patron->check_password($in), "\n"; 
+	print "        sipbool: " . sipbool($patron->check_password($in)), "\n"; 
+}