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


##</code><code>##

use POSIX 'strftime';
my $date = strftime "%x_%T", localtime;