$date = "03/10/2004";
    my @d = split/\\/, $date;
    #                Second,  Min , Hour , Day  , Month, Year
    $epoc = timelocal(0, 0, 0, $d[1], $d[0], $d[2]);

##</code><code>##

($ss, $mm, $hh, $d, $mon, $yr) = localtime($epoc);

##</code><code>##

printf("NewDate: %02d/%02d/%04d\n", $mon+1, $d, $yr+1900);