Help for this page

Select Code to Download

Select or download this

print $sock "HELLO 1.0";
chomp( my $greet = <$sock> );
die if $greet ne 'HELLO 1.0';
...continue...

Select or download this

chomp( my $greet = <$sock> );
die if $greet ne 'HELLO 1.0';
print $sock "HELLO 1.0";
...continue...