Select Code to Download

use strict;
use IO::Socket;
...
        print $line. "\n";
}
close $remote;                  # Close socket

use IO::Socket qw(:DEFAULT :crlf);
use IO::File;
...
        print $x "Testing\n";
}