Select Code to Download

    ($laddr,$lport,$proto) = _sock_info($arg->{LocalAddr},
                    $arg->{LocalPort},
                    $arg->{Proto})
            or return _error($sock, $!, $@);

#!/usr/bin/perl
use warnings;
...
      LocalAddr => $LocalHost,
      LocalPort => $LocalPort,
);