Help for this page

Select Code to Download

Select or download this

#! perl -slw
use strict;
...
    print <SH> or die $!;
    print 'received';
}

Select or download this

D:\Perl\test>test
IO::Socket::INET=GLOB(0x1c19ce8)
...
x2

received