my $ym = Time::Piece->new($mtime)->strftime("%Y\\%m");

# For single digit month:
$ym =~ s/0(\d)$/$1/;

my $outdir = "_$ym\\";