Select Code to Download

use IO::Socket::UNIX;

$SIG{INT} = sub { unlink "/tmp/sock" };
...
  }
  $sock->close;
}

use IO::Socket::UNIX;
use IO::Select;

...
  }
  $sock->close;
}