think this will work ...
use strict;
my ($cust_data) = {};
my ($condition, $condition2);
while ($condition) {
#...
$cust_data = get_cust_data();
if ($condition2) {
if (send_mail($cust_data)) {
print $cust_data->{'customer'};
# ...
}
}
from chapter 4 in MacPerl & Ease
Computers use certain characters - usually invisible - to represent line
breaks. Mac OS uses the octal character \015for line breaks (sometimes
called carriage return, or CR). Unix uses \012(line feed, or LF). DOS and
Windows use the sequence \015\012. (Aren't sta
