KeyboardMaestro example macro to speak how long until christmas.

How Long Till Xmas.kmmacros

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<array>
	<dict>
		<key>Activate</key>
		<string>Normal</string>
		<key>IsActive</key>
		<true/>
		<key>Macros</key>
		<array>
			<dict>
				<key>Actions</key>
				<array>
					<dict>
						<key>DisplayKind</key>
						<string>Window</string>
						<key>IsActive</key>
						<true/>
						<key>IsDisclosed</key>
						<true/>
						<key>MacroActionType</key>
						<string>ExecuteShellScript</string>
						<key>Path</key>
						<string></string>
						<key>Text</key>
						<string>#!/Users/mark/perl5/perlbrew/perls/perl-5.16.0/bin/perl
use Time::Duration qw(duration);
system("say",duration(1419465600-time));

</string>
						<key>TimeOutAbortsMacro</key>
						<true/>
						<key>TrimResults</key>
						<true/>
						<key>TrimResultsNew</key>
						<true/>
						<key>UseText</key>
						<true/>
					</dict>
				</array>
				<key>IsActive</key>
				<true/>
				<key>ModificationDate</key>
				<real>412147049.93373603</real>
				<key>Name</key>
				<string>Speak How Long Till Xmas</string>
				<key>Triggers</key>
				<array>
					<dict>
						<key>FireType</key>
						<string>Pressed</string>
						<key>KeyCode</key>
						<integer>37</integer>
						<key>MacroTriggerType</key>
						<string>HotKey</string>
						<key>Modifiers</key>
						<integer>6400</integer>
					</dict>
				</array>
				<key>UID</key>
				<string>D9AFF41B-8C9C-4BB6-8688-1BB5896CC4DB</string>
			</dict>
		</array>
		<key>Name</key>
		<string>Games</string>
		<key>UID</key>
		<string>50CC3C66-6E19-4CC0-84B1-6FC06D1C048D</string>
	</dict>
</array>
</plist>