Select Code to Download

my $remote = IO::Socket::INET->new( Proto => 'tcp',
                 PeerAddr => $ADDRESS,
...
    print OUT $_;
}
close $remote;

$| = 1;
$server = IO::Socket::INET->new( Proto    => 'tcp',
...
    }
    close $client;
}