
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">

<HTML>

<HEAD>

  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">

  <META NAME="GENERATOR" CONTENT="GtkHTML/3.28.1">

</HEAD>

<BODY>

<BR>

#!/usr/bin/perl<BR>

<BR>

use strict;<BR>

use warnings;<BR>

<BR>

use autodie;<BR>

<BR>

use JustinHawkings;<BR>

<BR>

sub days_I_like {<BR>

&nbsp;&nbsp;&nbsp; return {<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Monday =&gt; &quot;Least&quot;,<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Thursday =&gt; &quot;Middle&quot;,<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Friday =&gt; &quot;Most&quot;,<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Weekends =&gt; &quot;No Thanks&quot;,<BR>

&nbsp;&nbsp;&nbsp; }<BR>

}<BR>

<BR>

sub time_I_like {<BR>

&nbsp;&nbsp;&nbsp; return {<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AfterFive =&gt; &quot;Least&quot;,<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; AfterSix =&gt; &quot;Most&quot;,<BR>

&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; WorkHours =&gt; &quot;No Thanks&quot;,<BR>

&nbsp;&nbsp;&nbsp; }<BR>

}<BR>

<BR>

my $justin_hawkins = JustinHawkins-&gt;new();<BR>

$justin_hawkins-&gt;volunteered(&quot;To Organise the One Time To Rule Them All&quot;);<BR>

$justin_hawkins-&gt;( { liked_days =&gt; days_I_like(), liked_times =&gt; time_I_like() );<BR>

<BR>

$justin_hawkins-&gt;send_email();<BR>

<BR>

1;<BR>

<BR>

# Well you get the gist...<BR>

<BR>

</BODY>

</HTML>