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