#!/usr/bin/perl
use Date::Manip;
print UnixDate( ParseDate( "today" ), "%m/%d" ), "\n";