Select Code to Download

#Server.pl
#!/usr/local/bin/perl
...

close($server);
<>;

#Client.pl
use strict;
...
                     }
close($socket);
<>;

if(defined($child_pid)){}
if($child_pid){}
if($child_pid==1){}
if($child_pid==0){}