Re^3: Is it possible to create a socket client and server that can send information back and forth using IO::Socket?

Not sure if this is the cause of your problems, but there are some coding issues you should fix:

        if ($buffer =~ m/^HELLO (\d+.\d+)/) {
             my $version = $1;
             if ($version == "1.0") {
[download]

should be:

        if (my ($version) = $buffer =~ m/^HELLO (\d+\.\d+)/) { ## Esca
+pe the "."
             if ($version eq "1.0") {        # Do a "text" compare, no
+t numeric
[download]

Potentia vobiscum ! (Si hoc legere scis nimium eruditionis habes)

Comment on Re^3: Is it possible to create a socket client and server that can send information back and forth using IO::Socket? Select or Download Code