Having gone to the effort of loading Time::Piece you may as well use it and avoid all those magic numbers.

#!/usr/bin/env perl 
use strict;
use warnings;
use Time::Piece;

my $to = localtime()->ymd ('\\');
print "$to\n";
[download]