Help for this page
$telnet->waitfor('/$device"."# /i'); ##wait for prompt
$telnet->waitfor( qq{/$device"."# /i} ); ##wait for prompt