diff --git a/time-span-in-hours.plx b/time-span-in-hours.plx
new file mode 100755
index 0000000..83276a6
--- /dev/null
+++ b/time-span-in-hours.plx
@@ -0,0 +1,28 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+use Getopt::Long;
+
+sub TimeCalc($$) {
+  my($date, $start) = @_;
+  my $finish =  $start;
+  use Date::Manip;
+  $start =~ s/^\s*([^\-]+)\-.*$/$1/;
+  $finish =~ s/^.*\-([^\-]+)\s*$/$1/;
+  $start = ParseDate("$date $start");
+  $finish = ParseDate("$date $finish");
+  return Delta_Format(DateCalc($start, $finish), 5, '%ht');
+}
+my $input;
+if (@ARGV == 0) {
+  $input = <STDIN>;
+  chomp $input;
+} elsif (@ARGV == 1) {
+ $input = $ARGV[0];
+} else {
+ die "oneargor noarg";
+}
+
+print TimeCalc('today', $input), "\n";