in reply to Peculiar incident: printing a variable changes its type
print "$body->{timeout}\n"; #<-----suspect line [download]
print $body->{timeout}, "\n"; # better [download]