my @date=localtime(time);
foreach my $elem (@date)
{
        if($elem<10)
         {
          $elem="0$elem";
         }
}