Thanks blockhead! And thanks to everyone for pointing out my use of "bad" code. I'm new to perl and am still learning. The two lines below are much better then what I was doing before, thanks again.
use POSIX 'strftime';
my $now_string = strftime( "%Y%m%d", localtime(time - 86400));