date-2

#!/usr/bin/env perl
use warnings;

@date=split / /, qx/date/;
chomp @date;

$"="/"; print "@date[5,1,2]\n";