diff --git a/org-mode-appt-check.plx b/org-mode-appt-check.plx
new file mode 100755
index 0000000..767cd48
--- /dev/null
+++ b/org-mode-appt-check.plx
@@ -0,0 +1,78 @@
+#!/usr/bin/perl
+# org-mode-appt-check.plx
+#
+# Copyright (C) 2013, Bradley M. Kuhn
+#
+# This program gives you software freedom; you can copy, modify, convey,
+# and/or redistribute it under the terms of the GNU General Public License
+# as published by the Free Software Foundation; either version 3 of the
+# License, or (at your option) any later version.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License along
+# with this program in a file called 'GPLv3'.  If not, write to the:
+#    Free Software Foundation, Inc., 51 Franklin St, Fifth Floor
+#                                    Boston, MA 02110-1301, USA.
+#
+# I needed a quick script to parse the output of emacs script.
+
+
+use strict;
+use warnings;
+use Date::Manip;
+use File::Temp ();
+
+if (not -d "$ENV{HOME}/Crypt/Orgs") {
+  print "\${color5}Crypt Directory Not Mounted!\n";
+  exit 0;
+}
+system("/usr/bin/rsync -q -Havz $ENV{HOME}/Crypt/Orgs/*.org $ENV{HOME}/Crypt/.org-backup/");
+if ($? != 0) {
+  print "\${color5}rsync failed for Org Backup!\n";
+  exit 0;
+}
+my $now =  ParseDate("now");
+open(THREE_DAYS, "-|", "/usr/bin/emacs -batch -l ~/.emacs -eval '(org-batch-agenda \"a\" org-agenda-files (mapcar (lambda (arg) (replace-regexp-in-string \"~/Crypt/Orgs/\" \"~/Crypt/.org-backup/\" arg)) org-agenda-files) org-agenda-span (quote 3)  org-agenda-overriding-header \"\" org-agenda-repeating-timestamp-show-all t org-agenda-time-grid nil org-agenda-repeating-timestamp-show-all t org-agenda-entry-types (quote (:sexp :scheduled)) org-agenda-skip-function (quote bkuhn/skip-unless-appt-or-diary))' 2>/dev/null") or
+die "Unable to run emacs: $!";
+
+my $firstDay = 1;
+my $firstTime = 1;
+my $dayLine = "";
+my $prettyDayLine;
+while (my $line = <THREE_DAYS>) {
+  chomp $line;
+  if ($line =~ /^\S/) {
+    $firstDay = $firstTime;
+    $firstTime = 0;
+    $dayLine = $line;
+    $prettyDayLine = "\${color3}$dayLine\${color}\n";
+  }
+  if ($line =~ /^\s+(?:[^:]+)\s*:\s+(\d+)\s*:\s*(\d+)\s*[\-\.]+(.*)$/) {
+    if ($firstDay) {
+      my $time = "$1:$2";
+      my $val = $3;
+      my $date =  ParseDate("$dayLine $1:$2");
+      if (DateCalc("$date", "+ 15 minutes") ge $now) {
+        my  $fh = File::Temp->new();
+        $fh->unlink_on_destroy( 1 );
+        my  $fname = $fh->filename;
+        print $fh "You have an appointment at $time: $val\n";
+        $fh->close();
+        system('/home/bkuhn/bin/myosd', $fname);
+        system("/usr/bin/espeak",  '-p', '45', '-s', '130', '-f', $fname)
+          unless -f "$ENV{HOME}/.silent-running";
+        system('/usr/bin/notify-send', '-u', 'critical', '-t', '300000',
+               'Appointment', "You have an appointment at $time: $val");
+      }
+    }
+    if (defined $prettyDayLine) {
+      print $prettyDayLine;
+      undef $prettyDayLine;
+    }
+    print "$line\n";
+  }
+}