Ich vermute, dass einer der Aufrufe discover oder find_service schiefgeht. So wie ich die Dokumentation verstehe, bekommst Du dann kein brauchbares Objekt zurück, sondern eben ein Net::Fritz::Error-Objekt - und mit dem geht es dann nicht recht weiter.

Die Fehlerbehandlung des Moduls scheint mir etwas ... ungewöhnlich zu sein. Ich würde das Ding im Debugger laufen lassen und nachschauen, was für ein Typ von Objekt ich für $device, $service und $response bekomme. In dem Error-Objekt steht dann hoffentlich hilfreiches drin.