my $value = qx{date +%Y%m%d_%H%M%S};
print $value;