Here's a snippet to do what you want:

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

-derby