Be aware that 2 days out of the year your  $yesterday will be incorrect. See  perldoc -q yesterday Also you may want to use  stat to get your file sizes. See  perldoc -f stat for proper usage.