#!/usr/bin/perl

use Date::Calc qw(:all);

$expire_day = "05";
$expire_month = "08";
$expire_year = "2007";

($day, $month, $year) = (localtime)[3..5];

$year += 1900;
$month++;

$Dd = Delta_Days($year,$month,$day, $expire_year, $expire_month, $expire_day);

print "truck status: ";

if($Dd == 0)
{
   print "truck leaves the Army today!\n";
}
elsif($Dd == 1)
{
   print "1 day until truck leaves the Army! Stay in the barracks!\n";
}
elsif($Dd >= 2)
{
   print "$Dd days until truck leaves the Army\n";
}
else
{
   print "truck left the Army " . abs($Dd) . " days ago.\n";
}