#!/usr/bin/env perl
#---------------------------------------------------------------------------
#Take the command line argument for the number of days to add or subtract
#from today's date.  
#---------------------------------------------------------------------------
if ($ARGV[0] eq "") {die "Usage: $0 [-]day(s)_to_offset\n"}
($mon, $mday, $year) = (localtime(time + ($ARGV[0] * 86400)))[4,3,5];
$year+=1900;
print ++$mon,"/$mday/$year\n";