Select Code to Download

#!/usr/bin/perl
use strict;
use warnings;
...
my @date_array = split(/\//, $date);
my $new_date = join('-', $date_array[2], $date_array[1], $date_array[0
+]);
print $new_date;