Or use perl itself for a rudimentary dump of the stream:

echo "ATDT123456 \r\nBUSY" | perl -e 'local $/=undef;@chars=split //, 
+<STDIN>; for(@chars) {print $_ . " " . ord($_) . "\n"; }'
[download]