@check = $telnet->cmd(String=>$RTRVPM1);

$response = join(" ", @check);

print $response;