Select Code to Download

                if($name eq $match)
        {
...
                print "Received from [$f_host $f_port]: $name\n";     
            }
        }

use IO::Socket;
use strict;
...
    }
}
die "Second: Can't accept socket from First($!)\n";