-- TCPPack::(TCPPack.pm:9)
our (@ISA, @EXPORT);
-> TCPPack::(TCPPack.pm:17)
{
*** Can't run finish while inside a call. Step and try again.
x1 TCPPack::(TCPPack.pm:18)
    my $msg = shift;
<- TCPPack::(TCPPack.pm:37) TCPPack::pack_msg
    ($buf, $msg) = unpack_msg(pack_msg($buf));
Return value for TCPPack::pack_msg is: 0009Hi there!
*** Can't run finish while inside a return. Step and try again.
trepan.pl: That's all, folks...