my ($x) = localtime(); # Example 4