my (@date)=((localtime())[5,4,3]); $date[0]+=1900; $date[1]++; my ($today)=sprintf("%4i-%02i-%02i",@date);