Select Code to Download

#!/usr/bin/perl

...
my ($day,$month,$year) = split '/', $date;
print "$day $dates{$month} $year\n";