On Aug 6, 2008, at 5:08 PM, Dan Linder wrote:
sub retrieve_fields { my ( $file )=@_; my %fields; open(FILE, $file) { local $/; eval <FILE>; } return %fields; }
Have you tried this instead? sub retrieve_fields { my ( $file )=@_; my $fields; open(FILE, $file) { local $/; eval <FILE>; } return $fields; } HTH, j