Randall Perry writes:
> I'm baffled by perl's scoping of variables.
You don't give exact error messages, but my guess is that this isn't a
scoping error, you're failing in get_cust_data(), so $cust_data is
undef and not a HASH ref. Imagine this rewritten as:
> $cust_data = {};
>
> while ($condition) {
> ...
>
> $cust_data = undef;
> print $cust_data->{'customer'};
Everyone else is right that all valid Perl programs start out:
#!/usr/bin/perl -Tw
use strict;
Dan
