chomp(my $date = qx(date +%x_%T));