}
if( defined $whoami && $whoami !~ /^\s*$/ ) {
($qname = $whoami) =~ s/['"]//g;
substr( $qname, $MaxNameLength-1 ) = "" if length $qname >= $MaxNameLength;
my @bytes = unpack( "C*", $qname );
}
if( defined $whoami && $whoami !~ /^\s*$/ ) {
($qname = $whoami) =~ s/['"]//g;
substr( $qname, $MaxNameLength-1 ) = "" if length $qname >= $MaxNameLength;
my @bytes = unpack( "C*", $qname );