Because I'm well on my way to becoming a Time::Piece convert, here it is used in a manner similiar to the other entries in this thread:

#!/usr/bin/perl -wT
use strict;
use Time::Piece;

my $t = localtime;
my $date = sprintf("%02d/%02d",$t->mon,$t->mday);
print "$date\n";
[download]

-Blake