my $yr = `date -u +%Y`; #get the output of year 
my $mm = `date -u +%m`; #get the output of month 
my $dd = `date -u +%d`; #get the output of day 
chomp $yr;
chomp $mm;
chomp $dd;