#!/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 = ; chomp $input; } elsif (@ARGV == 1) { $input = $ARGV[0]; } else { die "oneargor noarg"; } print TimeCalc('today', $input), "\n";