String Perl

print "The date is ", 'date /T';     
print "The date is 'date'", ".\n"; # Backquotes treated literally
$directory='cd';                  
print "\nThe current directory is $directory.";