#!/usr/bin/perl

use Date::Calc qw(:all);

$expire_day = "31";
$expire_month = "03";
$expire_year = "2006";

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

$year += 1900;
$month++;

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

print "tag status: ";

if($Dd == 0)
{
   print "whiprush's tags expire today\n";
}
elsif($Dd == 1)
{
   print "1 day until whiprush's tags expire\n";
}
elsif($Dd >= 2)
{
   print "$Dd days until whiprush's tags expire\n";
}
else
{
   print "whiprush's tags are " . abs($Dd) . " days expired -- avoid flipflops and Wendy's!\n";
}