iterating over a hash to print it

[Nick Brown]

I'm trying to use Finance::OFX::Response to use a ofx statement I've
it downloaded from by bank website.
http://search.cpan.org/~bfoz/p5-Finance-OFX-20080303/lib/Finance/OFX/Response.pm
However there I'm getting the following perl compilation error:

Type of arg 1 to each must be hash (not subroutine entry) at
download_statements.pl line 67, near "->ofx ) "

for the below code:

$response = $mech->get($download_url . $count);
   if (!$response->is_success) {
       die 'Failed to load statements URL';
   }

   $response = $mech->submit_form(form_name => $download_form_name, button => \
'btnDownload');
   if (!$response->is_success) {
       die 'Failed to get Statement Download';
   }

   #print $mech->content();
   my $ofx_response = Finance::OFX::Response->from_http_response($response);
   while( my ($k, $v) = each $ofx_response->ofx ) {
       print "key: $k, value: $v.\n";
   }

Can you suggest what is wrong the while loop I'm trying to use to
print the hash tree of the OFX?

Thanks,
Nick

-- 
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/