my $date = qx (date +%Y%m%d);