#!/usr/bin/perl
# w1.9.pl: Backtics are used to run commands in the system shell
# Use "chomp"  (like the old "chop") to get rid of the linefeed supplied
# by "date");

chomp($getdate = `date`);
print ("Is today $getdate or not?\n");
__END__
