Select Code to Download

sub READLINE {
    my $self = shift();
    my $socket = $self->[SOCKET];
...
    $self->[LOG]->print(">> $line") if defined $line and !$self->[OFF]
+;
    return $line;
}

#works on my laptop but not on desktop
use warnings;
...
        print "here 4\n";
        $sender->Close()
                or die "Failed to send the message: $sender->{'error_m
+sg'}\n";