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

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