print "$body->{timeout}\n"; #<-----suspect line #### print $body->{timeout}, "\n"; # better