use CGI;
use POSIX;
$cgi = new CGI;

require HackedBind;
tie $clients, 'HackedBind', \&clients;
tie $coders, 'HackedBind', \&coders;
tie $timestamp, 'HackedBind', 
      \&{return strftime('MM-DD-YY',localtime(time));};

sub clients { return ((scalar @$cgi->param('clients') > 1) ? 
                 join(",", $cgi->param('clients')) : $cgi->param('clients')); }
sub coders { return  (scalar @$cgi->param('clients'))*2; }

#now tell your client to ignore everything above and edit
#below for changes:
$data = <<DATA;
The Time is $timestamp.

Our clients are $clients.

We have assigned $coders coders to the project.
DATA