Select Code to Download

my $sock = IO::Socket::INET->new( Listen    => 5,
                                  Proto     => 'tcp',
...
                                  LocalAddr => $ftp->sockhost
                                  ReusePort => 1 
                                 );