in reply to capture system date to $date

JJB,
Might I suggest using localtime instead:
print HISTORY scalar localtime; my $date = localtime;
To answer your original question, you need to use backticks or qx;
my $date = `date`;
Cheers - L~R