or download this
my @t = ( localtime(time) )[ reverse( 3 .. 5 ) ]; #get year month and
+day from current localtime
$t[0] += 1900; # see localtime doc for details
$t[1]++; # see localtime doc for details
my $savedir = '/folder/name/' . sprintf( '%04d%02d%02d', @t );
say $savedir;