Error de Perl: no se puede llamar al método "replace" en un valor indefinido MIME :: Lite :: HTML - perl, email

Intentaba enviar un correo con la respuesta de una URL usando MIME :: Lite :: HTML. Pero se nota

No se puede "t llamar al método" reemplazar "en un valor indefinido en /usr/local/share/perl/5.18.2/MIME/Lite/HTML.pm

El código es así.

#!/usr/bin/perl
use MIME::Lite;
use MIME::Lite::HTML;
use strict;

my $mailed_html = new MIME::Lite::HTML(To => "user@sample.com",
From  => "admin@sample.com",
Subject => "Thank you mail"); # creates MIME::Lite::HTML object
my $msg = $mailed_html->parse("http://sample.com/thankyou.html?id=19&mode=test");
$msg->send;

La variable $mailed_html tener MIME :: Lite :: objeto HTML, confirmado imprimiendo usando Data::Dumper.

Respuestas

Tengo la respuesta En realidad no hubo ningún error con el código. La solicitud de mensaje de análisis utilizando MIME::Lite::HTML no estaba llegando al servidor debido a un problema de resolución de DNS. Si la solicitud no puede llegar, se devolverá el objeto sin datos y, por lo tanto, la función de reemplazo no se puede ejecutar para datos vacíos.

Gracias por sus respuestas.