diff --git a/countoverdues.pl b/countoverdues.pl
new file mode 100755
index 0000000..b10f0d7
--- /dev/null
+++ b/countoverdues.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+#script to keep total of number of issues;
+
+use C4::Output;
+use C4::Stats;
+use CGI;
+
+my $input=new CGI;
+print $input->header;
+my $count=Overdues();
+print $count;
diff --git a/countowing.pl b/countowing.pl
new file mode 100755
index 0000000..7c5faec
--- /dev/null
+++ b/countowing.pl
@@ -0,0 +1,12 @@
+#!/usr/bin/perl
+
+#script to keep total of number of issues;
+
+use C4::Output;
+use C4::Stats;
+use CGI;
+
+my $input=new CGI;
+print $input->header;
+my $count=TotalOwing('fine');
+print $count;