Heh ... it looks like it's working properly then. Check out the documentation for Net::Telnet's print method:

print - write to object
        $ok = $obj->print(@list);

    This method writes @list followed by the output_record_separator t
+o
    the open object and returns 1 if all data was successfully written
+.
    On time-out or other failures, the error mode action is performed.
    See "errmode()".
[download]