Я работаю над Perl-программой на работе и застрял (как мне кажется,) в тривиальной проблеме. Мне просто нужно построить строку в формате «06/13/2012» (всегда 10 символов, поэтому 0 для чисел меньше 10).

Вот что я имею до сих пор:

use Time::localtime;
$tm=localtime;
my ($day,$month,$year)=($tm->mday,$tm->month,$tm->year);