程嶏清单14-1.txt

< linux网络编程工具>>配套源码

sub new {
    my $class = shift;
    my $self  = {};         # allocate new hash for object
    bless($self, $class);
    return $self;
}