#!/usr/bin/perl

use strict;
my($day, $month)=(localtime)[3,4];
  $month++;
  if ($month < 10) { $month  = "0" . $month; }
  if ($day < 10)   { $day    = "0" . $day;   }
  my $date = "$month/$day";

print $date;