And no one else has mentioned it but you probably want POSIX::strftime instead of shelling out to call date.

use POSIX qw( strftime );

## . . . 
my $ymd = strftime( "%Y%m%d", localtime() );
## . . .
[download]