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