Perl script change date

perl script with date change

#!/usr/bin/perl
use Time::Piece;
use Time::Seconds 'ONE_DAY';

my $yesterday = (localtime() - ONE_DAY )->strftime('%d%m%y');
my $today = localtime->strftime('%d%m%y');
my $tomorrow = (localtime() + ONE_DAY )->strftime('%d%m%y');

print "Changing date\n";
print "Yesterday was : $yesterday\n";
print "Today is : $today\n";
print "Tomorrow will be : $tomorrow\n";

my $dstdir = "/home/backups";
my $yesterdaybackupdir = "$dstdir/$yesterday";
my $todaybackupdir = "$dstdir/$today";
# check and rename yesterday backup
if( -d $yesterdaybackupdir ){
        print "$yesterdaybackupdir will be renamed to $todaybackupdir\n";
        system("mv $yesterdaybackupdir $todaybackupdir");
        system("rsync -avz /home/wrodrigues/vimwiki/ $todaybackupdir/vimwiki/");
        system("rsync -avz /home/wrodrigues/vimwiki_election2019/ $todaybackupdir/vimwiki_election2019/");
        }else{
        print "Could not renamed dir\n";
        print "Please check reason for failure\n";
        }