note lidden Put <c>my $octet; # or $octet = undef</c> before the loop and do <c>die "Some message" unless $octet;</c> after the loop. 991234 991234