Select Code to Download

#!/usr/bin/perl -Tw
use strict;
...
     logmsg "conn from $name [", inet_ntoa($iaddr), "] port $port";
     print Client "Hi, [$C], it's now ", scalar localtime, $EOL;
}

#!/usr/bin/perl -w
# biclient - bidirectional forking client
...
}
print "$kidpid exitting\n";
exit;

#!/usr/bin/perl -Tw
use strict;
...
        print Client "Hi, [$C], it's now ", scalar localtime, $EOL;
    }
}

    my $C = join ('', <Client>);