$ is a meta character meaning end of line, so if you want to match it in 'tdd:~$' you'll have to escape it. See the docs Net::Telnet for more details and advice on debugging.

so :-

obj->waitfor('/tdd:~\$$'); # search for tdd:~$ at the end of a line
[download]