Select Code to Download

#!/usr/bin/perl -w
use IO::Socket::UNIX;
...
  my ($l) = <$fh>;
  return uc($l);
}

#!/usr/bin/perl -w
use IO::Socket::UNIX;
...

# shut down reading side
$usock->shutdown(0);

my $linger = pack('ii', 1, 120); # BSD struct 
$usock->sockopt(SO_LINGER, $linger);