Select Code to Download

sub new {
    my ($class,$device,$serveraddr,$port)  = @_;
...
        'port'       => $port

    };

my $SockObj = Communication->new( $self->{$serveraddr}, $self->{$port}
+);

sub Communication::new {
    my $class = shift;
...
    $socket->autoflush();
    return bless $socket, $class;
}