sub pick2mmddyy {
  my ($day, $mo, $year) = (gmtime(($_[0]-732)*86400))[3,4,5];
  return sprintf("%02d/%02d/%02d", $mo+1, $day, $year%100);
}

print pick2mmddyy(11982), "\n";