Help for this page

Select Code to Download

Select or download this

#!/usr/bin/perl -w
use strict;
...
        my $answer = <CLIENT>;
        print $answer;
}

Select or download this

#!/usr/bin/perl -w
use strict;
...
        print TSOCK "Hello server!";
        TSOCK->flush;
}