Select Code to Download

use IO::Socket;
use strict;
...
    print $handle $output;
    print $handle "\n";
}

use IO::Socket;
use strict;
...
    }
    return $output;
}