version 1.3, 2011/03/20 06:20:11 |
version 1.4, 2011/03/22 05:53:59 |
|
|
#!/usr/bin/perl |
#!/usr/bin/perl |
# $AFresh1: test.pl,v 1.2 2011/03/20 01:34:42 andrew Exp $ |
# $AFresh1: test.pl,v 1.3 2011/03/20 05:20:11 andrew Exp $ |
use strict; |
use strict; |
use warnings; |
use warnings; |
|
|
|
|
id => 1, |
id => 1, |
info1 => 'Visit me online at http://example.com', |
info1 => 'Visit me online at http://example.com', |
info2 => 'Create a new ticket rt@example.com', |
info2 => 'Create a new ticket rt@example.com', |
from => { |
from => 'Example Company |
name => 'Example Company', |
|
#attn => 'Jane Smith', |
22115 Central Way |
addr1 => '22115 Central Way', |
|
addr2 => 'Suite C', |
Suite C |
city => 'Anytown', |
|
state => 'America', |
Anytown, America 11111 |
zip => '11111', |
|
phone => '(800) 555-1212', |
(800) 555-1212 |
email => 'company@example.com', |
|
}, |
\texttt{<company@example.com>}', |
to => { |
to => 'John Doe |
name => 'John Doe', |
|
addr1 => '123 W Main St', |
123 W Main St |
city => 'Anytown', |
|
state => 'America', |
Anytown, America 11111', |
zip => '11111', |
|
}, |
|
projects => [ |
projects => [ |
{ |
{ |
title => 'Weekly Retainer', |
title => 'Weekly Retainer', |